diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-02-01 15:34:59 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-01 15:34:59 +0000 |
| commit | 687305a06dbeb1a5ae2ba1c76df272db4e96667a (patch) | |
| tree | 87d067ab21dc6264d28aa2defc637bbdb0ab7a5c | |
| parent | c4a2e7a54bf494cff88f7c7c033f6b017d36f653 (diff) | |
| download | perl-687305a06dbeb1a5ae2ba1c76df272db4e96667a.tar.gz | |
add test for Change 22194:
[perl #25147] "stmt if BAREWORD" bypasses strict 'subs' checks
p4raw-id: //depot/perl@22256
| -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. |