From a768f8a9c168c188393aacbb8093cc90dd107d2b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Dec 2002 11:40:12 +0000
Subject: remove unused variables or rename them with an underscore (eg: $o
 becomes $_o)

---
 perl-install/standalone.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 4a3c58644..6be11e007 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -194,18 +194,18 @@ sub ensure_is_installed {
 }
 
 sub what_provides {
-    my ($o, $name) = @_;
+    my ($_o, $name) = @_;
     my ($what) = split '\n', `urpmq '$name' 2>/dev/null`;
     split '\|', $what;
 }
 
 sub is_installed {
-    my ($o, @l) = @_;
+    my ($_o, @l) = @_;
     run_program::run('rpm', '>', '/dev/null', '-q', @l);
 }
 
 sub are_installed {
-    my ($o, @l) = @_;
+    my ($_o, @l) = @_;
     my @l2;
     run_program::run('rpm', '>', \@l2, '-q', '--qf', "%{name}\n", @l);
     intersection(\@l, [ map { chomp_($_) } @l2 ]);
-- 
cgit v1.2.1