Ignore:
Timestamp:
Apr 26, 2008, 2:45:36 AM (11 years ago)
Author:
bruno
Message:
  • Adds support for a build system conf file under $vmpath/.pbrc or $vepath/.pbrc
  • Fix .pm modes
File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb-modules/lib/ProjectBuilder/Conf.pm

    r409 r415  
    6060sub pb_conf_init {
    6161
     62pb_log(2,"DEBUG: pb_conf_init with ".Dumper(@_)."\n");
    6263@pbconffiles = @_;
    6364}
     
    7172sub pb_conf_add {
    7273
    73 my $f = shift;
    74 
    75 push(@pbconffiles,"$f");
     74pb_log(2,"DEBUG: pb_conf_add with ".Dumper(@_)."\n");
     75push(@pbconffiles,@_);
    7676}
    7777
     
    220220my $p2;
    221221
    222 pb_log(2,"DEBUG: pb_conf_get param1: ".Dumper(@ptr1)."\n");
    223 pb_log(2,"DEBUG: pb_conf_get param2: ".Dumper(@ptr2)."\n");
     222pb_log(2,"DEBUG: pb_conf_get $conffile: ".Dumper(@ptr1)."\n");
     223pb_log(2,"DEBUG: pb_conf_get input: ".Dumper(@ptr2)."\n");
    224224
    225225foreach my $i (0..$#param) {
     
    229229    # in order to mask what could be defined already in ptr2
    230230    if (not defined $p2) {
     231        # exit if no p1 either
     232        last if ((not defined $p1) || (not defined $ENV{'PBPROJ'}));
    231233        # No ref in p2 so use p1
    232234        $p1->{$ENV{'PBPROJ'}} = $p1->{'default'} if ((not defined $p1->{$ENV{'PBPROJ'}}) && (defined $p1->{'default'}));
     
    261263    $ptr1[$i] = $p1;
    262264}
    263 pb_log(2,"DEBUG: pb_conf_get param ptr1: ".Dumper(@ptr1)."\n");
     265pb_log(2,"DEBUG: pb_conf_get output: ".Dumper(@ptr1)."\n");
    264266return(\@ptr1);
    265267}
Note: See TracChangeset for help on using the changeset viewer.