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:
Tobias Becker 2004-09-29 21:13:32 +00:00
parent 3d9d9fdd65
commit 9126e14f54
1 changed files with 4 additions and 0 deletions

View File

@ -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) {