summaryrefslogtreecommitdiffstats
path: root/pm/MGATools/rpmsrate.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-15 08:22:41 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-15 08:22:41 +0000
commit310dfeeec96e695022aa423478d707daa48e8d9e (patch)
tree4873b0922dd4088d589c2d1ce8b992c99178c41c /pm/MGATools/rpmsrate.pm
parentafd675eb5499bf00b02db74aea6f3b5435afc153 (diff)
downloadmgatools-310dfeeec96e695022aa423478d707daa48e8d9e.tar
mgatools-310dfeeec96e695022aa423478d707daa48e8d9e.tar.gz
mgatools-310dfeeec96e695022aa423478d707daa48e8d9e.tar.bz2
mgatools-310dfeeec96e695022aa423478d707daa48e8d9e.tar.xz
mgatools-310dfeeec96e695022aa423478d707daa48e8d9e.zip
(preread_rpmsrate) one perl_checker statement less
Diffstat (limited to 'pm/MGATools/rpmsrate.pm')
-rw-r--r--pm/MGATools/rpmsrate.pm2
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 ];