From 5ee586ad6c3f17f79370d63440bc26fb7549baa6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 1 Aug 2007 20:47:34 +0000
Subject: fix passing several options (needed for next commit)

---
 perl-install/standalone/drakbug | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 5eac17a15..82044336c 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -32,10 +32,12 @@ my $prog;
 my $incident = 0;
 my ($table, $comb_app, $com_app, $button_pkg, $package, $distrocode);
 
+my $i;
 foreach (@ARGV) {
     next unless defined $_;
-    /^--report$/ && shift @ARGV and $prog = shift @ARGV;
-    /^--incident$/ && shift @ARGV and do { $incident = 1; $prog = shift @ARGV };
+    $i++;
+    /^--report$/ and $prog = splice(@ARGV, $i, 1);
+    /^--incident$/ and do { $incident = 1; $prog = splice(@ARGV, $i, 1) };
 }
 
 $ugtk2::wm_icon = 'drakbug-16';
-- 
cgit v1.2.1