diff options
| author | Thierry Vignaud <tv@mageia.org> | 2011-09-20 18:39:59 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2011-09-20 18:39:59 +0000 |
| commit | 80028325730760ee817b75eb3b5c2c67aaa089b3 (patch) | |
| tree | 83583b369de40b6f41d558bbe813d9070f8998ce /URPM/Query.pm | |
| parent | 90eee80969aa54b3bc610338e0c9449e5dfef51f (diff) | |
| download | perl-URPM-80028325730760ee817b75eb3b5c2c67aaa089b3.tar perl-URPM-80028325730760ee817b75eb3b5c2c67aaa089b3.tar.gz perl-URPM-80028325730760ee817b75eb3b5c2c67aaa089b3.tar.bz2 perl-URPM-80028325730760ee817b75eb3b5c2c67aaa089b3.tar.xz perl-URPM-80028325730760ee817b75eb3b5c2c67aaa089b3.zip | |
perl_checker cleanups
Diffstat (limited to 'URPM/Query.pm')
| -rw-r--r-- | URPM/Query.pm | 8 |
1 files changed, 4 insertions, 4 deletions
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; |