Changeset 1895 in ProjectBuilder

Timestamp:

Sep 30, 2014, 10:07:56 AM (10 years ago)

Author:

Bruno Cornec

Message:

• Fix pbdistrogetparam in order to also display project related info, and not only distro related

File:

• devel/pb-modules/bin/pbdistrogetparam (modified) (1 diff)

devel/pb-modules/bin/pbdistrogetparam

@@ -115 +115 @@
 
 my $i = 0;
+my %rep;
+foreach my $r (pb_conf_get(@tab)) {
+    $rep{$tab[$i]} = $r->{$ENV{'PBPROJ'}} if (((defined $opts{'v'}) || (defined $opts{'a'})) && (defined  $r->{$ENV{'PBPROJ'}}));
+    $i++;
+}
 foreach my $r (pb_distro_get_param($pbos,pb_conf_get(@tab))) {
-    print "$tab[$i] => " if ((defined $opts{'v'}) || (defined $opts{'a'}));
+    $rep{$tab[$i]} = $r if (((defined $opts{'v'}) || (defined $opts{'a'})) && (defined $tab[$i]));
     $i++;
-    print "$r\n";
 }
+foreach my $r (keys %rep) {
+    print "$r => " if ((defined $opts{'v'}) || (defined $opts{'a'}));
+    $i++;
+    print "$rep{$r}\n";
+}