Change 33890 by [EMAIL PROTECTED] on 2008/05/20 18:35:54
The TODO tests of change 33876 were actually fixed by change 33874.
Affected files ...
... //depot/perl/t/lib/strict/subs#13 edit
Differences ...
==== //depot/perl/t/lib/strict/subs#13 (text) ====
Index: perl/t/lib/strict/subs
--- perl/t/lib/strict/subs#12~33876~ 2008-05-20 02:29:33.000000000 -0700
+++ perl/t/lib/strict/subs 2008-05-20 11:35:54.000000000 -0700
@@ -394,14 +394,14 @@
Bareword "FOO" not allowed while "strict subs" in use at - line 2.
Execution of - aborted due to compilation errors.
########
-# TODO: [perl #53806] No complain about bareword
+# [perl #53806] No complain about bareword
use strict 'subs';
print FOO . "\n";
EXPECT
Bareword "FOO" not allowed while "strict subs" in use at - line 3.
Execution of - aborted due to compilation errors.
########
-# TODO: [perl #53806] No complain about bareword
+# [perl #53806] No complain about bareword
use strict 'subs';
$ENV{PATH} = "";
system(FOO . "\n");
End of Patch.
