Patch for bug 216572: 002goodperl.t shouldn't add an extra test for every additional...

diff --git a/t/002goodperl.t b/t/002goodperl.t
index 92a01fc2d19f7e85d5c5e11c9c043ed62f70e1d9..676cd177632744a6e8ac3a6803dbc487dde859cb 100644 (file)
--- 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/) {