diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-13 14:32:44 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-05-13 14:32:44 +0000 |
| commit | 1d0ac9f06fedc7a204c20c9fbd465520746668d3 (patch) | |
| tree | 82e0e8d33a1bb12601a057b86484d2c60023305f /perl-install/standalone | |
| parent | a67362129100ec7a207e2b6a72ca98ad24d950e8 (diff) | |
| download | drakx-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-x | perl-install/standalone/drakbug | 5 |
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 }; } |