From 7427d4349bfd1c4c600ad98d414b4dcc016e59fd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 22 May 2007 16:41:52 +0000
Subject: workaround crash due to option abuse (#30817)

---
 Rpmdrake/init.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Rpmdrake/init.pm b/Rpmdrake/init.pm
index d01c36a4..98c3db64 100755
--- a/Rpmdrake/init.pm
+++ b/Rpmdrake/init.pm
@@ -98,6 +98,13 @@ foreach (@ARGV) {
     }
 }
 
+foreach my $option (qw(media mode parallel pkg-nosel pkg-sel search)) {
+    if (defined $options{$option} && !ref($options{$option})) {
+        warn "wrong usage of \"$option\" option!\n";
+        exit(-1); # too early for my_exit()
+    }
+}
+
 our $MODE = ref $options{mode} ? $options{mode}[0] : undef;
 unless ($MODE) {
     $MODE = 'install';
-- 
cgit v1.2.1