From: zach%zachlipton.com <>
Date: Tue, 4 Sep 2001 05:11:43 +0000 (+0000)
Subject: Actually make the strict checking work.
X-Git-Tag: bugzilla-2.14.1~152
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8c0dda342c13bb2372024f5b4c8adcedf17488dd;p=thirdparty%2Fbugzilla.git

Actually make the strict checking work.
---

diff --git a/t/2goodperl.t b/t/2goodperl.t
index fa6d9a8dc3..ff805b6445 100644
--- a/t/2goodperl.t
+++ b/t/2goodperl.t
@@ -57,12 +57,18 @@ foreach $file (@testitems) {
 			next;
 		}
 	}
-	if ($filecontent !~ /use strict;/) {
+}
+foreach $file (@testitems) {
+	$file =~ s/\s.*$//; # nuke everything after the first space (#comment)
+	next if (!$file); # skip null entries
+	$filecontent = `cat $file`;
+	if ($filecontent !~ /use strict/) {
 		ok(0,"$file DOES NOT use strict");
 	} else {
-		ok(1,"$files uses strict");
+		ok(1,"$file uses strict");
 	}
 }
 
 
 
+