summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-13 14:32:44 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-13 14:32:44 +0000
commit1d0ac9f06fedc7a204c20c9fbd465520746668d3 (patch)
tree82e0e8d33a1bb12601a057b86484d2c60023305f /perl-install/standalone
parenta67362129100ec7a207e2b6a72ca98ad24d950e8 (diff)
downloaddrakx-1d0ac9f06fedc7a204c20c9fbd465520746668d3.tar
drakx-1d0ac9f06fedc7a204c20c9fbd465520746668d3.tar.gz
drakx-1d0ac9f06fedc7a204c20c9fbd465520746668d3.tar.bz2
drakx-1d0ac9f06fedc7a204c20c9fbd465520746668d3.tar.xz
drakx-1d0ac9f06fedc7a204c20c9fbd465520746668d3.zip
make option managment look like real perl
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakbug5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug
index 3b9427618..94131c6b9 100755
--- a/perl-install/standalone/drakbug
+++ b/perl-install/standalone/drakbug
@@ -35,8 +35,9 @@ my $version = "0.9.0";
my $prog;
my $incident = 0;
-while (defined($_ = shift @ARGV)) {
- /^--report$/ and do { $prog = shift @ARGV };
+foreach (@ARGV) {
+ next unless defined $_;
+ /^--report$/ and $prog = shift @ARGV;
/^--incident$/ and do { $incident = 1; $prog = shift @ARGV };
}