| 145 |
|
die "Unsupported option: " . $ARGV[0] . "\n"; |
| 146 |
|
} |
| 147 |
|
} |
| 148 |
< |
die "Number of processes must be positive" if ($nprocs <= 0); |
| 148 |
> |
die "-o* option cannot contain spaces\n" if ($windoz && $outdir =~ /[ ]/); |
| 149 |
> |
die "Number of processes must be positive\n" if ($nprocs <= 0); |
| 150 |
|
if ($windoz && $nprocs > 1) { |
| 151 |
|
print STDERR "Only one process supported under Windows\n"; |
| 152 |
|
$nprocs = 1; |
| 264 |
|
die "File '$outfile' already exists\n" if (-e $outfile); |
| 265 |
|
my ($otyp) = ($rtoutC{$oval} =~ /(\.[^.]+)$/); |
| 266 |
|
push @rsplitA, $rcodeC{$otyp}[0]; |
| 267 |
< |
push @rsplitA, qq{'$rcodeC{$otyp}[1] > "$outfile"'}; |
| 267 |
> |
if ($windoz) { |
| 268 |
> |
push @rsplitA, qq{"$rcodeC{$otyp}[1] > $outfile"}; |
| 269 |
> |
} else { |
| 270 |
> |
push @rsplitA, qq{'$rcodeC{$otyp}[1] > "$outfile"'}; |
| 271 |
> |
} |
| 272 |
|
delete $rtoutC{$oval}; |
| 273 |
|
} |
| 274 |
|
# call rtrace + rsplit |
