Changeset 1895 in ProjectBuilder
- Timestamp:
- Sep 30, 2014, 10:07:56 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/bin/pbdistrogetparam
r1694 r1895 115 115 116 116 my $i = 0; 117 my %rep; 118 foreach 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 } 117 122 foreach 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])); 119 124 $i++; 120 print "$r\n";121 125 } 126 foreach 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.