Changeset 1895


Ignore:
Timestamp:
Sep 30, 2014, 10:07:56 AM (5 years ago)
Author:
bruno
Message:
  • Fix pbdistrogetparam in order to also display project related info, and not only distro related
File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb-modules/bin/pbdistrogetparam

    r1694 r1895  
    115115
    116116my $i = 0;
     117my %rep;
     118foreach my $r (pb_conf_get(@tab)) {
     119    $rep{$tab[$i]} = $r->{$ENV{'PBPROJ'}} if (((defined $opts{'v'}) || (defined $opts{'a'})) && (defined  $r->{$ENV{'PBPROJ'}}));
     120    $i++;
     121}
    117122foreach my $r (pb_distro_get_param($pbos,pb_conf_get(@tab))) {
    118     print "$tab[$i] => " if ((defined $opts{'v'}) || (defined $opts{'a'}));
     123    $rep{$tab[$i]} = $r if (((defined $opts{'v'}) || (defined $opts{'a'})) && (defined $tab[$i]));
    119124    $i++;
    120     print "$r\n";
    121125}
     126foreach my $r (keys %rep) {
     127    print "$r => " if ((defined $opts{'v'}) || (defined $opts{'a'}));
     128    $i++;
     129    print "$rep{$r}\n";
     130}
Note: See TracChangeset for help on using the changeset viewer.