diff options
| -rw-r--r-- | t/lib/strict/subs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/lib/strict/subs b/t/lib/strict/subs index 9e329091fc..6cf988c7d8 100644 --- a/t/lib/strict/subs +++ b/t/lib/strict/subs @@ -366,3 +366,10 @@ eval q{ use strict; no strict refs; }; print $@; EXPECT Bareword "refs" not allowed while "strict subs" in use at (eval 1) line 1. +######## +# [perl #25147] +use strict; +print "" if BAREWORD; +EXPECT +Bareword "BAREWORD" not allowed while "strict subs" in use at - line 3. +Execution of - aborted due to compilation errors. |