summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-07-03 10:36:41 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-07-03 10:36:41 +0000
commit3e08a5c96e88ccebbbc9df66645b8c0371b67fb2 (patch)
tree3065189b31b19d242e5b1eba6029ac7c43a30820
parentd23699cebec60afd124210d71e2d12606dc6473a (diff)
downloadurpmi-3e08a5c96e88ccebbbc9df66645b8c0371b67fb2.tar
urpmi-3e08a5c96e88ccebbbc9df66645b8c0371b67fb2.tar.gz
urpmi-3e08a5c96e88ccebbbc9df66645b8c0371b67fb2.tar.bz2
urpmi-3e08a5c96e88ccebbbc9df66645b8c0371b67fb2.tar.xz
urpmi-3e08a5c96e88ccebbbc9df66645b8c0371b67fb2.zip
remove unused vars
-rwxr-xr-xurpmi12
1 files changed, 4 insertions, 8 deletions
diff --git a/urpmi b/urpmi
index edcc9043..b79bf901 100755
--- a/urpmi
+++ b/urpmi
@@ -512,7 +512,6 @@ that are older than the installed ones:\n%s", $list);
print "$msg\n";
} else {
my $noexpr = N("Nn");
- my $yesexpr = N("Yy");
$msg .= N("\nContinue installation anyway?");
$force || message_input_($msg . N(" (Y/n) "), boolean => 1) !~ /[$noexpr]/ or exit 0;
}
@@ -528,7 +527,6 @@ if (@ask_unselect) {
print "$msg\n";
} else {
my $noexpr = N("Nn");
- my $yesexpr = N("Yy");
$msg .= N("\nContinue installation anyway?");
$force || message_input_($msg . N(" (Y/n) "), boolean => 1) !~ /[$noexpr]/ or exit 0;
}
@@ -575,18 +573,17 @@ have to be removed for others to be upgraded:\n%s\n", $list);
#- check if there is at least one package to install that
#- has not been given by the user.
my $ask_user = $env || $search_result eq 'substring';
-my @root_only;
my @to_install = @{$urpm->{depslist}}[sort { $a <=> $b } keys %{$state->{selected}}]; # sorted by medium for format_selected_packages
{
- my ($src, $binary) = partition { $_->arch eq 'src' } @to_install;
+ my @binary = grep { $_->arch ne 'src' } @to_install;
if ($install_src) {
- if (@$binary && $install_src && !$env) {
- my $list = join(' ', sort map { $_->name } @$binary);
+ if (@binary && $install_src && !$env) {
+ my $list = join(' ', sort map { $_->name } @binary);
$urpm->{fatal}(1, N("You must first call urpmi with --buildrequires to install the following dependencies:\n%s\n", $list));
}
} else {
- @to_install = @$binary;
+ @to_install = @binary;
}
}
@@ -618,7 +615,6 @@ if (!$urpm->{options}{auto} && $ask_user && $urpm->{nb_install} || $env && !$opt
exit 0; #- exit now for specific environment.
}
my $noexpr = N("Nn");
- my $yesexpr = N("Yy");
$force || message_input_($p . N(" (Y/n) "), boolean => 1) !~ /[$noexpr]/ or exit 0;
}