diff options
Diffstat (limited to 't/lib/strict/subs')
| -rw-r--r-- | t/lib/strict/subs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/t/lib/strict/subs b/t/lib/strict/subs index 20a8afa80e..2c9aa87372 100644 --- a/t/lib/strict/subs +++ b/t/lib/strict/subs @@ -393,3 +393,18 @@ my @a;my $x=$a[FOO]; 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 +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 +use strict 'subs'; +$ENV{PATH} = ""; +system(FOO . "\n"); +EXPECT +Bareword "FOO" not allowed while "strict subs" in use at - line 4. +Execution of - aborted due to compilation errors. |