Changeset 69 in ProjectBuilder for devel/pb/lib/ProjectBuilder/pb.pm
- Timestamp:
- Aug 31, 2007, 3:20:15 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb/lib/ProjectBuilder/pb.pm
r50 r69 9 9 use AppConfig qw(ARGCOUNT_HASH ARGCOUNT_ONE); 10 10 use Data::Dumper; 11 use vars qw (%pbroot);12 11 13 12 sub pb_init { 14 13 15 14 my $conffile = shift; 15 my $param = shift; 16 16 my $trace; 17 17 … … 33 33 }); 34 34 $config->file($conffile); 35 my $ptr = $config->get( "pbroot") || die "Unable to find pbrootin $conffile";35 my $ptr = $config->get($param) || die "Unable to find $param in $conffile"; 36 36 print "DEBUG: pbroot: ".Dumper($ptr)."\n" if ($debug >= 1); 37 %pbroot = %$ptr;37 return($ptr); 38 38 } 39 39
Note:
See TracChangeset
for help on using the changeset viewer.