From 1d0ac9f06fedc7a204c20c9fbd465520746668d3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 13 May 2003 14:32:44 +0000
Subject: make option managment look like real perl

---
 perl-install/standalone/drakbug | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone')

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 };
 }
 
-- 
cgit v1.2.1