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

Timestamp:

Mar 30, 2020, 8:21:44 PM (4 years ago)

Author:

Bruno Cornec

Message:

Improve debug messages

• pb_distro_get_param now an internal function printing name of hash members
• use pb_distro_guess instead of pb_distro_get
• pb_distro_get and pb_distro_get_if introduced to replace call to pb_conf_get(_if)* + and old pb_distro_get_param
• add pb_distro_get_in_conf_if for another use case of old pb_distro_get_param
• fix all calls to these functions

File:

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

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

@@ -5 +5 @@
 # which can be easily used by wahtever perl project
 #
-# Copyright B. Cornec 2007-2016
+# Copyright B. Cornec 2007-today
 # Eric Anderson's changes are (c) Copyright 2012 Hewlett Packard
 # Provided under the GPL v2
@@ -409 +409 @@
 my @ptr = ();
 
-pb_log(2,"DEBUG: pb_conf_get_in_hash_if on params ".join(' ',@params)."\n");
+pb_log(3,"DEBUG: pb_conf_get_in_hash_if on params ".join(' ',@params)."\n");
 foreach my $k (@params) {
     push @ptr,$lh->{$k};
 }
 
-pb_log(2,"DEBUG: pb_conf_get_in_hash_if returns\n".Dumper(@ptr));
+pb_log(3,"DEBUG: pb_conf_get_in_hash_if returns\n".Dumper(@ptr));
 return(@ptr);
 }
@@ -474 +474 @@
 my $p2;
 
-pb_log(2,"DEBUG: pb_conf_add_last_in_hash params: ".Dumper(@params)."\n");
-pb_log(2,"DEBUG: pb_conf_add_last_in_hash current hash: ".Dumper(@h)."\n");
-pb_log(2,"DEBUG: pb_conf_add_last_in_hash new inputs: ".Dumper(@ptr)."\n");
+pb_log(3,"DEBUG: pb_conf_add_last_in_hash params: ".Dumper(@params)."\n");
+pb_log(3,"DEBUG: pb_conf_add_last_in_hash current hash: ".Dumper(@h)."\n");
+pb_log(3,"DEBUG: pb_conf_add_last_in_hash new inputs: ".Dumper(@ptr)."\n");
 
 foreach my $i (0..$#params) {