summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-05 11:40:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-05 11:40:12 +0000
commita768f8a9c168c188393aacbb8093cc90dd107d2b (patch)
tree81513f06217c865c0884cf992091f81714b9f8ab
parent4582440dd3536b4ee02fdcc89698e25cfbad07ce (diff)
downloaddrakx-a768f8a9c168c188393aacbb8093cc90dd107d2b.tar
drakx-a768f8a9c168c188393aacbb8093cc90dd107d2b.tar.gz
drakx-a768f8a9c168c188393aacbb8093cc90dd107d2b.tar.bz2
drakx-a768f8a9c168c188393aacbb8093cc90dd107d2b.tar.xz
drakx-a768f8a9c168c188393aacbb8093cc90dd107d2b.zip
remove unused variables or rename them with an underscore (eg: $o becomes $_o)
-rw-r--r--perl-install/standalone.pm6
1 files 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 ]);