workaround crash due to option abuse (#30817)

1 files changed, 7 insertions, 0 deletions

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';