summaryrefslogtreecommitdiffstats
path: root/t/002goodperl.t
diff options
context:
space:
mode:
Diffstat (limited to 't/002goodperl.t')
-rw-r--r--t/002goodperl.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/t/002goodperl.t b/t/002goodperl.t
index 92a01fc2d..676cd1776 100644
--- a/t/002goodperl.t
+++ b/t/002goodperl.t
@@ -107,7 +107,7 @@ foreach my $file (@testitems) {
my $lineno = 0;
my $error = 0;
- while (my $file_line = <FILE>) {
+ while (!$error && (my $file_line = <FILE>)) {
$lineno++;
if ($file_line =~ /Throw.*Error\("(.*?)"/) {
if ($1 =~ /\s/) {