From: jocuri%softhome.net <>
Date: Sat, 28 Aug 2004 15:14:59 +0000 (+0000)
Subject: Patch for bug 216572: 002goodperl.t shouldn't add an extra test for every additional... 
X-Git-Tag: bugzilla-2.19.1~80
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e304adf98ba86c921c1e3df2ee623c2a302ae2b3;p=thirdparty%2Fbugzilla.git

Patch for bug 216572: 002goodperl.t shouldn't add an extra test for every additional Throw*Error violation in the same file; patch by Marc Schumann <marcschum@web.de>; r=kiko, a=justdave.
---

diff --git a/t/002goodperl.t b/t/002goodperl.t
index 92a01fc2d1..676cd17763 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/) {