From 8c0dda342c13bb2372024f5b4c8adcedf17488dd Mon Sep 17 00:00:00 2001
From: "zach%zachlipton.com" <>
Date: Tue, 4 Sep 2001 05:11:43 +0000
Subject: [PATCH] Actually make the strict checking work.

---
 t/2goodperl.t | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

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");
 	}
 }
 
 
 
+
-- 
2.47.2