Changeset 415 in ProjectBuilder for devel/pb-modules
- Timestamp:
- Apr 26, 2008, 2:45:36 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/lib/ProjectBuilder/Conf.pm
r409 r415 60 60 sub pb_conf_init { 61 61 62 pb_log(2,"DEBUG: pb_conf_init with ".Dumper(@_)."\n"); 62 63 @pbconffiles = @_; 63 64 } … … 71 72 sub pb_conf_add { 72 73 73 my $f = shift; 74 75 push(@pbconffiles,"$f"); 74 pb_log(2,"DEBUG: pb_conf_add with ".Dumper(@_)."\n"); 75 push(@pbconffiles,@_); 76 76 } 77 77 … … 220 220 my $p2; 221 221 222 pb_log(2,"DEBUG: pb_conf_get param1: ".Dumper(@ptr1)."\n");223 pb_log(2,"DEBUG: pb_conf_get param2: ".Dumper(@ptr2)."\n");222 pb_log(2,"DEBUG: pb_conf_get $conffile: ".Dumper(@ptr1)."\n"); 223 pb_log(2,"DEBUG: pb_conf_get input: ".Dumper(@ptr2)."\n"); 224 224 225 225 foreach my $i (0..$#param) { … … 229 229 # in order to mask what could be defined already in ptr2 230 230 if (not defined $p2) { 231 # exit if no p1 either 232 last if ((not defined $p1) || (not defined $ENV{'PBPROJ'})); 231 233 # No ref in p2 so use p1 232 234 $p1->{$ENV{'PBPROJ'}} = $p1->{'default'} if ((not defined $p1->{$ENV{'PBPROJ'}}) && (defined $p1->{'default'})); … … 261 263 $ptr1[$i] = $p1; 262 264 } 263 pb_log(2,"DEBUG: pb_conf_get param ptr1: ".Dumper(@ptr1)."\n");265 pb_log(2,"DEBUG: pb_conf_get output: ".Dumper(@ptr1)."\n"); 264 266 return(\@ptr1); 265 267 }
Note:
See TracChangeset
for help on using the changeset viewer.