diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-15 08:22:41 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-15 08:22:41 +0000 |
| commit | 310dfeeec96e695022aa423478d707daa48e8d9e (patch) | |
| tree | 4873b0922dd4088d589c2d1ce8b992c99178c41c | |
| parent | afd675eb5499bf00b02db74aea6f3b5435afc153 (diff) | |
| download | mgatools-310dfeeec96e695022aa423478d707daa48e8d9e.tar mgatools-310dfeeec96e695022aa423478d707daa48e8d9e.tar.gz mgatools-310dfeeec96e695022aa423478d707daa48e8d9e.tar.bz2 mgatools-310dfeeec96e695022aa423478d707daa48e8d9e.tar.xz mgatools-310dfeeec96e695022aa423478d707daa48e8d9e.zip | |
(preread_rpmsrate) one perl_checker statement less
| -rw-r--r-- | pm/MGATools/rpmsrate.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pm/MGATools/rpmsrate.pm b/pm/MGATools/rpmsrate.pm index 267598f..50c86b5 100644 --- a/pm/MGATools/rpmsrate.pm +++ b/pm/MGATools/rpmsrate.pm @@ -65,7 +65,7 @@ sub preread_rpmsrate { my ($postfix) = $data =~ /(\s*)$/; my (@data, $i); foreach ([$data =~ /(?:^|\s)(\S+)-(?:\S+)\s+\1-(?:\S+)(?:\s|$)/g], [split ' ', $data]) { - $data[$i++] = [ @$norpmsrate ? any { my $r = $_; $r if !any { $r =~ /$_/ } @$norpmsrate } @$_ : @$_ ]; + $data[$i++] = [ @$norpmsrate ? any { my $r = $_; any { $r =~ /$_/ } @$norpmsrate ? @{[]} : $r } @$_ : @$_ ]; } $potloc{$_} = [] foreach @{$data[0]}; push @rpmsrate, [ $indent,$r, $flags, $data[1], $postfix ]; |