diff options
| author | zach%zachlipton.com <> | 2001-09-04 05:11:43 +0000 |
|---|---|---|
| committer | zach%zachlipton.com <> | 2001-09-04 05:11:43 +0000 |
| commit | 8c0dda342c13bb2372024f5b4c8adcedf17488dd (patch) | |
| tree | cacaaf7216c6a879455ac13c9bf13ae4ce2995fd /t/2goodperl.t | |
| parent | 93ec66548fc0cdec1c2b65f92add69884e9ec9cd (diff) | |
| download | bugs-8c0dda342c13bb2372024f5b4c8adcedf17488dd.tar bugs-8c0dda342c13bb2372024f5b4c8adcedf17488dd.tar.gz bugs-8c0dda342c13bb2372024f5b4c8adcedf17488dd.tar.bz2 bugs-8c0dda342c13bb2372024f5b4c8adcedf17488dd.tar.xz bugs-8c0dda342c13bb2372024f5b4c8adcedf17488dd.zip | |
Actually make the strict checking work.
Diffstat (limited to 't/2goodperl.t')
| -rw-r--r-- | t/2goodperl.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/t/2goodperl.t b/t/2goodperl.t index fa6d9a8dc..ff805b644 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"); } } + |