Two small changes for pp_rate: ignore leading white space at first area
name of A: line and remove progress notice after unknown area name search.
This commit is contained in:
parent
3d9d9fdd65
commit
9126e14f54
|
@ -157,6 +157,7 @@ ragain:
|
|||
$acmt = '' unless ( $acmt =~/#\s*\S/ ); # only non-empty
|
||||
}
|
||||
$a =~ s/[,\s]+$//;
|
||||
$a =~ s/^\s+//;
|
||||
@a=split(/\s*,\s*/, $a);
|
||||
foreach $c (@a) {
|
||||
next if ($c eq '');
|
||||
|
@ -190,6 +191,9 @@ again:
|
|||
last if($m==0);
|
||||
}
|
||||
}
|
||||
if (length($tf) < 16) { # erase "searching ..."
|
||||
print "\r'$c' ";
|
||||
}
|
||||
print "\r'$c'";
|
||||
}
|
||||
if ($tf && $m<=1) {
|
||||
|
|
Loading…
Reference in New Issue