diff options
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; |