diff options
Diffstat (limited to 't/lib/strict/subs')
| -rw-r--r-- | t/lib/strict/subs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/t/lib/strict/subs b/t/lib/strict/subs index 4f0e6215f7..20a8afa80e 100644 --- a/t/lib/strict/subs +++ b/t/lib/strict/subs @@ -380,3 +380,16 @@ qr/(?{my $x=foo})/; EXPECT Bareword "foo" not allowed while "strict subs" in use at (re_eval 1) line 1. Compilation failed in regexp at - line 3. +######## +# [perl #27628] strict 'subs' didn't warn on bareword array index +use strict 'subs'; +my $x=$a[FOO]; +EXPECT +Bareword "FOO" not allowed while "strict subs" in use at - line 3. +Execution of - aborted due to compilation errors. +######## +use strict 'subs'; +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. |