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

Timestamp:

Jul 29, 2007, 2:30:56 AM (17 years ago)

Author:

Bruno Cornec

Message:

Basic function works (conf file read and interpret)

File:

• devel/pb/lib/pb.pm (modified) (3 diffs)

devel/pb/lib/pb.pm

@@ -11 +11 @@
 @ISA = qw(Exporter);
 # global vars are here
-@EXPORT_OK = qw(%defpkgdir %extpkgdir @version &pb_init);
+@EXPORT_OK = qw(%defpkgdir %extpkgdir %version &pb_init);
 use vars @EXPORT_OK;
 use AppConfig qw(ARGCOUNT_ONE ARGCOUNT_HASH ARGCOUNT_LIST EXPAND_ALL);
@@ -29 +29 @@
 $config->define("defpkgdir" => { ARGCOUNT => ARGCOUNT_HASH });
 $config->define("extpkgdir" => { ARGCOUNT => ARGCOUNT_HASH });
-$config->define("version" => { ARGCOUNT => ARGCOUNT_LIST });
+$config->define("version" => { ARGCOUNT => ARGCOUNT_HASH });
 
 $config->file($conffile);
@@ -51 +51 @@
 # Valid version names
 $ptr = $config->get("version");
-@version = @$ptr;
+%version = %$ptr;
 
 }