summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorzach%zachlipton.com <>2001-09-04 07:11:43 +0200
committerzach%zachlipton.com <>2001-09-04 07:11:43 +0200
commit8c0dda342c13bb2372024f5b4c8adcedf17488dd (patch)
treecacaaf7216c6a879455ac13c9bf13ae4ce2995fd
parent93ec66548fc0cdec1c2b65f92add69884e9ec9cd (diff)
downloadbugzilla-8c0dda342c13bb2372024f5b4c8adcedf17488dd.tar.gz
bugzilla-8c0dda342c13bb2372024f5b4c8adcedf17488dd.tar.xz
Actually make the strict checking work.
-rw-r--r--t/2goodperl.t10
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");
}
}
+