summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2007-08-01 20:47:34 +0000
committerThierry Vignaud <tv@mandriva.org>2007-08-01 20:47:34 +0000
commit5ee586ad6c3f17f79370d63440bc26fb7549baa6 (patch)
treeb818a5daeb727090ad4be962dd9257b8bd44f728 /perl-install
parenta98ac657249ba4c28aabd28e317e9bc3a0680e9c (diff)
downloaddrakx-5ee586ad6c3f17f79370d63440bc26fb7549baa6.tar
drakx-5ee586ad6c3f17f79370d63440bc26fb7549baa6.tar.gz
drakx-5ee586ad6c3f17f79370d63440bc26fb7549baa6.tar.bz2
drakx-5ee586ad6c3f17f79370d63440bc26fb7549baa6.tar.xz
drakx-5ee586ad6c3f17f79370d63440bc26fb7549baa6.zip
fix passing several options (needed for next commit)
Diffstat (limited to 'perl-install')
-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';