fix passing several options (needed for next commit)

1 files 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';