From 8e96124b8646d07b5b60f22340d97384b822b0e9 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Thu, 7 Aug 2008 13:01:29 +0000
Subject: further fix parsing @ARGV

---
 Rpmdrake/init.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Rpmdrake/init.pm')

diff --git a/Rpmdrake/init.pm b/Rpmdrake/init.pm
index d1a5c290..6060ee60 100644
--- a/Rpmdrake/init.pm
+++ b/Rpmdrake/init.pm
@@ -95,14 +95,17 @@ if ($collation_locale) {
 
 my $version = 1;
 our %rpmdrake_options;
+
+my $i;
 foreach (@ARGV) {
+    $i++;
     /^-?-(\S+)$/ or next;
     my $val = $1;
     if ($val =~ /=/) {
         my ($name, $values) = split /=/, $val;
         my @values = split /,/, $values;
         $rpmdrake_options{$name} = \@values if @values;
-        shift @ARGV
+        splice @ARGV, $i-1, 1;
     } else {
         if ($val eq 'version') {
             print "$0 $version\n";
-- 
cgit v1.2.1