summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakbug
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakbug')
-rwxr-xr-xperl-install/standalone/drakbug6
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';