diff options
-rw-r--r-- | t/lib/strict/subs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/strict/subs b/t/lib/strict/subs index 2c9aa87372..c18af684f5 100644 --- a/t/lib/strict/subs +++ b/t/lib/strict/subs @@ -394,14 +394,14 @@ EXPECT 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"); |