Changeset 2350 in ProjectBuilder

Timestamp:

Feb 15, 2019, 6:26:47 AM (6 years ago)

Author:

Bruno Cornec

Message:

Improve printing for getconf

Location:

devel

Files:

• pb-modules/lib/ProjectBuilder/Distribution.pm (modified) (3 diffs)
• pb/bin/pb (modified) (1 diff)

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

@@ -878 +878 @@
 my $pbos = shift;
 my @keys = @_;
+my $all = 0;
 
 if ($#keys == -1) {
@@ -883 +884 @@
     pb_log(0,"================================================\n");
     @keys = pb_conf_get_all();
+    $all = 1;
 }
 if (defined $ENV{'PBV'}) {
@@ -908 +910 @@
 foreach my $r (keys %rep) {
     pb_log(1, "$r => ");
-    pb_log(0, "$rep{$r}\n");
+    pb_log(0, "$rep{$r}\n") if ($all == 0);
+    pb_log(0, "$r = $rep{$r}\n") if ($all == 1);
 }
 }

devel/pb/bin/pb

@@ -879 +879 @@
 }
 
-pb_log(0,"Project: $ENV{'PBPROJ'}\n");
-pb_log(0,"Action: $action\n");
+if ($action ne "getconf") {
+    pb_log(0,"Project: $ENV{'PBPROJ'}\n");
+    pb_log(0,"Action: $action\n");
+}
 
 my $do_install = undef;