Changeset 69 in ProjectBuilder for devel/pb/lib/ProjectBuilder/pb.pm

Timestamp:

Aug 31, 2007, 3:20:15 PM (17 years ago)

Author:

Bruno Cornec

Message:

Rework interfaces of pb_init, conf files content and management to ease usage

File:

• devel/pb/lib/ProjectBuilder/pb.pm (modified) (2 diffs)

devel/pb/lib/ProjectBuilder/pb.pm

@@ -9 +9 @@
 use AppConfig qw(ARGCOUNT_HASH ARGCOUNT_ONE);
 use Data::Dumper;
-use vars qw (%pbroot);
 
 sub pb_init {
 
 my $conffile = shift;
+my $param = shift;
 my $trace;
 
@@ -33 +33 @@
                         });
 $config->file($conffile);
-my $ptr = $config->get("pbroot") || die "Unable to find pbroot in $conffile";
+my $ptr = $config->get($param) || die "Unable to find $param in $conffile";
 print "DEBUG: pbroot: ".Dumper($ptr)."\n" if ($debug >= 1);
-%pbroot = %$ptr;
+return($ptr);
 }