| # | Line 90 | Line 90 | while ($#ARGV >= 0 && "$ARGV[0]" =~ /^[-\@]/) { | |
|---|---|---|
| 90 | } | |
| 91 | } | |
| 92 | die "Number of processes must be positive" if ($nprocs <= 0); | |
| 93 | < | if ($outpic) { # redirect output? |
| 93 | > | if (defined $outpic) { # redirect output? |
| 94 | > | die "File '$outpic' already exists\n" if (-e $outpic); |
| 95 | open STDOUT, '>', "$outpic"; | |
| 96 | } | |
| 97 | if ($nprocs == 1) { # may as well run rpict? | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |