Actually make the strict checking work.

8c0dda34 · zach%zachlipton.com · 93ec6654 · 8c0dda34
Commit 8c0dda34 authored Sep 04, 2001 by zach%zachlipton.com
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 2 deletions

2goodperl.t t/2goodperl.t +8 -2

No files found.
--- 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");
 	}
 }



+