From 0fa4329fef1e28467ecf38313d050fccf440bbfc Mon Sep 17 00:00:00 2001
From: "jocuri%softhome.net"
 <jocuri%softhome.net@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Sat, 28 Aug 2004 08:17:21 +0000
Subject: [PATCH] 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.

git-svn-id: svn://10.0.0.236/trunk@161415 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/bugzilla/t/002goodperl.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mozilla/webtools/bugzilla/t/002goodperl.t b/mozilla/webtools/bugzilla/t/002goodperl.t
index 92a01fc2d19..676cd177632 100644
--- a/mozilla/webtools/bugzilla/t/002goodperl.t
+++ b/mozilla/webtools/bugzilla/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/) {