# | 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 |
> | Changed lines |