diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-01-10 09:34:17 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-01-10 09:34:17 +0000 |
commit | 206ef17270c65de8b4ba2282e98360014ce49b98 (patch) | |
tree | 5a6efe12586b7ed6215f7b2ab6460f3ffa1218f9 | |
parent | 5e623cfe8dcb53ef64b72cf4c4c1951d4474d16c (diff) | |
download | urpmi-206ef17270c65de8b4ba2282e98360014ce49b98.tar urpmi-206ef17270c65de8b4ba2282e98360014ce49b98.tar.gz urpmi-206ef17270c65de8b4ba2282e98360014ce49b98.tar.bz2 urpmi-206ef17270c65de8b4ba2282e98360014ce49b98.tar.xz urpmi-206ef17270c65de8b4ba2282e98360014ce49b98.zip |
Remove unused vars
-rw-r--r-- | urpm/args.pm | 4 | ||||
-rwxr-xr-x | urpmi | 8 |
2 files changed, 4 insertions, 8 deletions
diff --git a/urpm/args.pm b/urpm/args.pm index d81e28a1..685acd5b 100644 --- a/urpm/args.pm +++ b/urpm/args.pm @@ -56,9 +56,7 @@ my %options_spec = ( 'sortmedia|sort-media=s' => \$::sortmedia, 'searchmedia|search-media=s' => \$::searchmedia, 'synthesis=s' => \$::synthesis, - auto => sub { - $urpm->{options}{auto} = $::auto = 1; - }, + auto => sub { $urpm->{options}{auto} = 1 }, 'allow-medium-change' => \$::allow_medium_change, 'auto-select' => \$::auto_select, 'no-remove|no-uninstall' => \$::no_remove, @@ -347,8 +347,7 @@ sub ask_choice { } @$choices; if (@l > 1 && !$urpm->{options}{auto}) { - my $msg = N("One of the following packages is needed:"); - message($msg); + message(N("One of the following packages is needed:")); my $i = 0; foreach (@l) { message(" " . ++$i . "- $_") } $n = message_input(N("What is your choice? (1-%d) ", $i), undef, range_min => 0, range => $i); defined($n) && $n ne "0" or exit 1; # abort. @@ -414,9 +413,8 @@ if (@ask_remove) { my $list = join "\n", $urpm->translate_why_removed($state, sort @ask_remove); if ($no_remove && !$force) { - my $msg = N("The installation cannot continue because the following packages -have to be removed for others to be upgraded:\n%s\n", $list); - message($msg); + message(N("The installation cannot continue because the following packages +have to be removed for others to be upgraded:\n%s\n", $list)); exit 0; } |