Changeset 963 in ProjectBuilder for devel/pb-modules/lib/ProjectBuilder/Conf.pm

Timestamp:

Feb 8, 2010, 3:47:36 AM (14 years ago)

Author:

Bruno Cornec

Message:

r3658@localhost: bruno | 2010-02-07 00:15:25 +0100

• Fix a bug in newve, by calling pb_distrib_init earlier to have the loading of the pb.conf main conf file, used to install default packages.

File:

• devel/pb-modules/lib/ProjectBuilder/Conf.pm (modified) (4 diffs)

devel/pb-modules/lib/ProjectBuilder/Conf.pm

@@ -93 +93 @@
     # Add the new one at the end
     my $num = keys %pbconffiles;
+    pb_log(2,"DEBUG: pb_conf_add $cf at position $num\n");
     $pbconffiles{$cf} = $num;
 }
@@ -169 +170 @@
 =item B<pb_conf_get_if>
 
-This function returns a table, corresponding to a set of values querried in the conf files or undef if it doen't exist. It takes a table of keys as an input parameter.
+This function returns a table, corresponding to a set of values queried in the conf files or undef if it doen't exist. It takes a table of keys as an input parameter.
 
 The format of the configurations file is as follows:
@@ -206 +207 @@
 # the most important conf file is first, so read them in reverse order
 foreach my $f (reverse sort { $pbconffiles{$a} <=> $pbconffiles{$b} } keys %pbconffiles) {
+    pb_log(2,"DEBUG: pb_conf_get_if in file $f\n");
     $ptr = pb_conf_get_fromfile_if("$f",$ptr,@param);
 }
@@ -241 +243 @@
 my $p2;
 
-pb_log(2,"DEBUG: pb_conf_get $conffile: ".Dumper(@ptr1)."\n");
-pb_log(2,"DEBUG: pb_conf_get input: ".Dumper(@ptr2)."\n");
-pb_log(2,"DEBUG: pb_conf_get param: ".Dumper(@param)."\n");
+pb_log(2,"DEBUG: pb_conf_get_from_file $conffile: ".Dumper(@ptr1)."\n");
+pb_log(2,"DEBUG: pb_conf_get_from_file input: ".Dumper(@ptr2)."\n");
+pb_log(2,"DEBUG: pb_conf_get_from_file param: ".Dumper(@param)."\n");
 
 foreach my $i (0..$#param) {