chiark
/
gitweb
/
~ian
/
pcre3.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge from existing archive branch
[pcre3.git]
/
perltest.pl
diff --git
a/perltest.pl
b/perltest.pl
index 05983a3349a14eada2944f2b32d588b8f30b95c4..29b808b5293c3979517015689f31fa9ee65bb34a 100755
(executable)
--- a/
perltest.pl
+++ b/
perltest.pl
@@
-80,8
+80,8
@@
for (;;)
$pattern .= $_;
}
$pattern .= $_;
}
-
chomp($pattern);
-
$pattern =~ s/\s+$//;
+ chomp($pattern);
+ $pattern =~ s/\s+$//;
# The private /+ modifier means "print $' afterwards".
# The private /+ modifier means "print $' afterwards".
@@
-121,6
+121,14
@@
for (;;)
if ($@)
{
printf $outfile "Error: $@";
if ($@)
{
printf $outfile "Error: $@";
+ if ($infile != "STDIN")
+ {
+ for (;;)
+ {
+ last if ! ($_ = <$infile>);
+ last if $_ =~ /^\s*$/;
+ }
+ }
next NEXT_RE;
}
next NEXT_RE;
}