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

Timestamp:

Jul 31, 2007, 12:50:36 AM (17 years ago)

Author:

Bruno Cornec

Message:

cms2build roughly working

File:

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

devel/pb/lib/common.pm

@@ -5 +5 @@
 # $Id$
 #
-require Exporter;
-@ISA = qw(Exporter);
-@EXPORT = qw(env_init);
 
+use strict;
 use lib qw (lib);
 use pb qw (pb_init);
-use strict;
 use File::Basename;
 use File::Path;
 use File::Temp qw /tempdir/;
-use vars qw (%defpkgdir %extpkgdir %version %param);
 use Data::Dumper;
 
@@ -43 +39 @@
 # Check content
 #
-if (not defined $param{"pbroot"}) {
-    die "param pbroot doesn't exist in $ENV{'PBETC'}/$proj.pb";
+if (not defined $confparam{"pbroot"}) {
+    die "confparam pbroot doesn't exist in $ENV{'PBETC'}/$proj.pb";
 } else {
-    $ENV{'PBROOT'} = $param{"pbroot"}; 
+    $ENV{'PBROOT'} = $confparam{"pbroot"}; 
 }
-if (defined $param{"cvsroot"}) {
-    $ENV{'CVSROOT'} = $param{"cvsroot"}; 
+if (defined $confparam{"cvsroot"}) {
+    $ENV{'CVSROOT'} = $confparam{"cvsroot"}; 
 }