From 310dfeeec96e695022aa423478d707daa48e8d9e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 15 Mar 2012 08:22:41 +0000
Subject: (preread_rpmsrate) one perl_checker statement less

---
 pm/MGATools/rpmsrate.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pm')

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 ];
-- 
cgit v1.2.1