$pattern .= $_;
}
- chomp($pattern);
- $pattern =~ s/\s+$//;
+ chomp($pattern);
+ $pattern =~ s/\s+$//;
# The private /+ modifier means "print $' afterwards".
if ($@)
{
printf $outfile "Error: $@";
+ if ($infile != "STDIN")
+ {
+ for (;;)
+ {
+ last if ! ($_ = <$infile>);
+ last if $_ =~ /^\s*$/;
+ }
+ }
next NEXT_RE;
}