| # | Line 38 | Line 38 | while ($#ARGV >= 0) { | |
|---|---|---|
| 38 | } | |
| 39 | userror() if ($#ARGV != 0); | |
| 40 | my $cmd = "getinfo < $ARGV[0] " . | |
| 41 | < | q[| sed -n 's/^.* -aa \([.0-9][.0-9]*\) .*$/\1/p']; |
| 41 | > | q[| sed -n 's/^.* -aa \([.0-9][^ ]*\) .*$/\1/p']; |
| 42 | my $ambacc=`$cmd`; | |
| 43 | die "Missing -aa setting in header\n" if (! $ambacc ); | |
| 44 | $scale *= $ambacc**.25; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines (old) |
| > | Changed lines (new) |