From eadd4b557088b142bd3fc0d56539a62679fd9128 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 31 Mar 2008 22:27:14 +0000 Subject: (perform_installation) minor readability improvement --- Rpmdrake/pkg.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Rpmdrake/pkg.pm') diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm index 57b7fc5d..883113f0 100644 --- a/Rpmdrake/pkg.pm +++ b/Rpmdrake/pkg.pm @@ -808,10 +808,10 @@ you may now inspect some in order to take actions:"), my @argv = ('--previous-priority-upgrade=' . $urpm->{options}{'priority-upgrade'}, grep { !/^--no-priority-upgrade$|--previous-priority-upgrade=/ } @Rpmdrake::init::ARGV_copy); # remove "--emmbedded " from argv: - my $i; + my $i = 0; foreach (@argv) { + splice @argv, $i, 2 if /^--embedded$/; $i++; - splice @argv, $i-1, 2 if /^--embedded$/; } alarm(0); # remember not to ask again questions and the like: -- cgit v1.2.1