Changeset 355 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Base.pm

Timestamp:

Apr 6, 2008, 2:29:09 AM (16 years ago)

Author:

Bruno Cornec

Message:

Fix a problem in build2vm where the new name of the distro wasn't correctly handled when trying to get packages pushed to the ftp server.

File:

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

devel/pb/lib/ProjectBuilder/Base.pm

@@ -34 +34 @@
 our @EXPORT = qw(pb_env_init pb_conf_read pb_conf_read_if pb_conf_get pb_conf_get_if pb_cms_init pb_mkdir_p pb_system pb_rm_rf pb_get_filters pb_filter_file pb_filter_file_pb pb_filter_file_inplace pb_cms_export pb_cms_log pb_cms_isdiff pb_cms_copy pb_cms_checkout pb_get_date pb_log pb_log_init pb_get_pkg pb_cms_get_pkg pb_get_uri pb_cms_get_uri $debug $LOG);
 
-$ENV{'PBETC'} = "$ENV{'HOME'}/.pbrc";
-
 sub pb_env_init {
 
@@ -43 +41 @@
 my $ver;
 my $tag;
+
+$ENV{'PBETC'} = "$ENV{'HOME'}/.pbrc";
 
 #
@@ -910 +910 @@
 my $p2;
 
-pb_log(2,"DEBUG: param1: ".Dumper(@ptr1)."\n");
-pb_log(2,"DEBUG: param2: ".Dumper(@ptr2)."\n");
+pb_log(2,"DEBUG: pb_conf_get param1: ".Dumper(@ptr1)."\n");
+pb_log(2,"DEBUG: pb_conf_get param2: ".Dumper(@ptr2)."\n");
 
 foreach my $i (0..$#param) {
@@ -950 +950 @@
     }
     $ptr1[$i] = $p1;
-    pb_log(2,"DEBUG: param ptr1: ".Dumper(@ptr1)."\n");
-}
+}
+pb_log(2,"DEBUG: pb_conf_get param ptr1: ".Dumper(@ptr1)."\n");
 return(@ptr1);
 }