From e77514efe5849336ef3c3e89576f11b5c02e8903 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 27 Sep 2007 07:11:36 +0000
Subject: - urpmf   o fix -a and -o

---
 urpmf | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'urpmf')

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) {
-- 
cgit v1.2.1