From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 1 Feb 2004 15:34:59 +0000 (+0000)
Subject: add test for Change 22194:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=687305a06dbeb1a5ae2ba1c76df272db4e96667a;p=p5sagit%2Fp5-mst-13.2.git

add test for Change 22194:
[perl #25147] "stmt if BAREWORD" bypasses strict 'subs' checks

p4raw-id: //depot/perl@22256
---

diff --git a/t/lib/strict/subs b/t/lib/strict/subs
index 9e32909..6cf988c 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.