summaryrefslogtreecommitdiffstats
path: root/urpmf
diff options
context:
space:
mode:
Diffstat (limited to 'urpmf')
-rwxr-xr-xurpmf8
1 files changed, 4 insertions, 4 deletions
diff --git a/urpmf b/urpmf
index 476019ca..9dda3b01 100755
--- a/urpmf
+++ b/urpmf
@@ -155,10 +155,10 @@ if ($multitag) {
my $next_st = $multitag ? 'next' : 'return 1';
my @inner = (
- "my \$s = sprintf(qq{$proto}, $sprintfargs);",
- "\$s =~ $expr or $next_st;",
- $uniq ? ('$uniq{$s} and ' . $next_st . ';', '$uniq{$s} = 1;') : (),
- 'print $s, "\n";',
+ "\$_ = sprintf(qq{$proto}, $sprintfargs);",
+ "$expr or $next_st;",
+ $uniq ? ('$uniq{$_} and ' . $next_st . ';', '$uniq{$_} = 1;') : (),
+ 'print $_, "\n";',
);
if ($multitag) {