Changeset 1898 in ProjectBuilder for devel/pb-modules/bin/pbgetparam
- Timestamp:
- Sep 30, 2014, 10:08:00 AM (10 years ago)
- File:
-
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
devel/pb-modules/bin/pbgetparam
r1897 r1898 114 114 @tab = pb_conf_get_all() if (defined $opts{'a'}); 115 115 116 my %rep; 116 117 my $i = 0; 117 my %rep; 118 # Index on prj 118 119 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 $rep{$tab[$i]} = $r->{'default'} if (defined $r->{'default'}); 121 $rep{$tab[$i]} = $r->{$ENV{'PBPROJ'}} if (defined $r->{$ENV{'PBPROJ'}}); 120 122 $i++; 121 123 } 124 # Index on distro 125 $i = 0; 122 126 foreach my $r (pb_distro_get_param($pbos,pb_conf_get(@tab))) { 123 $rep{$tab[$i]} = $r if ( ((defined $opts{'v'}) || (defined $opts{'a'})) && (defined $tab[$i]));127 $rep{$tab[$i]} = $r if (defined $tab[$i]); 124 128 $i++; 125 129 } 126 130 foreach my $r (keys %rep) { 127 131 print "$r => " if ((defined $opts{'v'}) || (defined $opts{'a'})); 128 $i++;129 132 print "$rep{$r}\n"; 130 133 }
Note:
See TracChangeset
for help on using the changeset viewer.