| 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; |
| 75 |
|
my $PID; |
| 76 |
|
my $makecmd=$self->{GMAKECMD}.$self->{CMDOPTS}." -f ".$makefile." ".join(" ",@ARGV); |
| 77 |
|
|
| 78 |
< |
print "SCRAM MakeInterface::exec(): going to exec \"",$makecmd,"\"\n",if ($ENV{SCRAM_DEBUG}); |
| 78 |
< |
|
| 78 |
> |
print "SCRAM: Starting ",$self->{GMAKECMD}," ....\n"; |
| 79 |
|
# Try without forking: |
| 80 |
|
exec "$makecmd" || die "SCRAM MakeInterface::exec(): Unable to exec()...$!","\n"; |
| 81 |
|
} |
