| # | Line 52 | Line 52 | while ($#ARGV >= 0) { | |
|---|---|---|
| 52 | $cmd .= q{| rcalc -if -of -e 'cond=9e9-$1;$1=$1' | total -if -u}; | |
| 53 | my $dmax=`$cmd`; | |
| 54 | $dmax = 2**(int(log($dmax)/log(2))+1); | |
| 55 | < | my $unit=`getinfo < '$ARGV[0]' | sed -n 's/^REFDEPTH= *[0-9.]*[^0-9.]//p'`; |
| 55 | > | my $unit=`getinfo < '$ARGV[0]' | sed -n 's/^REFDEPTH= *[0-9.]*[^a-zA-Z]*//p'`; |
| 56 | chomp $unit; | |
| 57 | $unit="Depth" if ( ! $unit ); | |
| 58 | $cmd = "rcode_depth -r -ff '$ARGV[0]' | pvalue -r -df -b "; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |