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