From 80028325730760ee817b75eb3b5c2c67aaa089b3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 20 Sep 2011 18:39:59 +0000
Subject: perl_checker cleanups

---
 URPM/Query.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'URPM/Query.pm')

diff --git a/URPM/Query.pm b/URPM/Query.pm
index 14256a4..15cbe29 100644
--- a/URPM/Query.pm
+++ b/URPM/Query.pm
@@ -21,7 +21,7 @@ sub tag2id {
 sub query_pkg {
    my (undef, $pkg, $query) = @_;
    my @tags = map {
-	   [ $pkg->get_tag(tag2id($_)) ]
+	   [ $pkg->get_tag(tag2id($_)) ];
    } $query =~ m/\%\{([^{}]*)\}*/g;
 
    $query =~ s/\%\{[^{}]*\}/%s/g;
@@ -29,12 +29,12 @@ sub query_pkg {
    $query =~ s/\\t/\t/g;
    my ($max, @res) = 0;
 
-   foreach (@tags) { $max < $#{$_} and $max = $#{$_} };
+   foreach (@tags) { $max < $#{$_} and $max = $#{$_} }
 
    foreach my $i (0 .. $max) {
-       push(@res, sprintf($query, map { ${$_}[ $#{$_} < $i ? $#{$_} : $i ] } @tags));
+       push @res, sprintf($query, map { ${$_}[ $#{$_} < $i ? $#{$_} : $i] } @tags);
    }
-   @res
+   @res;
 }
 
 1;
-- 
cgit v1.2.1