Actually make the strict checking work.

diff --git a/t/2goodperl.t b/t/2goodperl.t
index fa6d9a8dc3f520a0d162b461202b86e15fb76a10..ff805b644558ec5678974cbdc7ba2ce3fea47682 100644 (file)
--- 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");
        }
 }
 
 
 
+