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

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.

Patch for bug 216572: 002goodperl.t shouldn't add an extra test for every…
e304adf9 · jocuri%softhome.net · 840d608f · e304adf9
Commit e304adf9 authored Aug 28, 2004 by jocuri%softhome.net
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

002goodperl.t t/002goodperl.t +1 -1

No files found.
--- 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/) {