Changeset 17 in ProjectBuilder for devel/pb/lib/common.pm

Timestamp:

Jul 30, 2007, 8:03:52 PM (17 years ago)

Author:

Bruno Cornec

Message:

Still in dev. phase - lots of changes - near the end for cms2build

File:

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

devel/pb/lib/common.pm

@@ -15 +15 @@
 use File::Path;
 use File::Temp qw /tempdir/;
-use vars qw (%defpkgdir %extpkgdir %version);
+use vars qw (%defpkgdir %extpkgdir %version %param);
 use Data::Dumper;
 
@@ -43 +43 @@
 # Check content
 #
-die "PBROOT doesn't exist in $ENV{'PBETC'}/$proj.pb" if (not (defined $ENV{'PBROOT'}));
+if (not defined $param{"pbroot"}) {
+    die "param pbroot doesn't exist in $ENV{'PBETC'}/$proj.pb";
+} else {
+    $ENV{'PBROOT'} = $param{"pbroot"}; 
+}
+if (defined $param{"cvsroot"}) {
+    $ENV{'CVSROOT'} = $param{"cvsroot"}; 
+}
+
 die "defpkgdir doesn't exist in $ENV{'PBETC'}/$proj.pb" if (not (defined %defpkgdir));