diff options
Diffstat (limited to 'urpmf')
-rwxr-xr-x | urpmf | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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) { |