49 |
|
( |
50 |
|
"make" => sub { }, # dummy so we can use help opt just for MakeInterface |
51 |
|
"s" => sub { $self->{CMDOPTS}.=" -s" }, |
52 |
< |
"j=s" => sub { $self->{CMDOPTS}.=" -j ".$_[1] }, |
52 |
> |
"j=i" => sub { $self->{CMDOPTS}.=" -j ".$_[1] }, |
53 |
|
"d" => sub { $self->{CMDOPTS}.=" -d" }, |
54 |
|
"k" => sub { $self->{CMDOPTS}.=" -k" }, |
55 |
|
"printdir" => sub { $self->{CMDOPTS}.=" -w" }, |
57 |
|
"printdb" => sub { $self->{CMDOPTS}.=" -p" } |
58 |
|
); |
59 |
|
|
60 |
< |
Getopt::Long::config qw(default no_ignore_case require_order); |
60 |
> |
Getopt::Long::config qw(default no_ignore_case require_order bundling); |
61 |
|
|
62 |
|
if (! Getopt::Long::GetOptions(\%opts, %options)) |
63 |
|
{ |
64 |
|
print "SCRAM Warning: Ignoring unknown option.","\n"; |
65 |
+ |
exit(1); |
66 |
|
} |
67 |
|
|
68 |
|
return $self; |