From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Sun, 8 Dec 2002 17:12:56 +0000 (+0100)
Subject: Re: [perl #18927] barewords with no errors
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b9d212931c328bf8f0ad8c51694e8b569ec046e;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #18927] barewords with no errors
Message-Id: <200212081712.56102.abe@ztreet.demon.nl>

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

diff --git a/t/lib/strict/subs b/t/lib/strict/subs
index f6e05b3..4516de7 100644
--- a/t/lib/strict/subs
+++ b/t/lib/strict/subs
@@ -354,3 +354,10 @@ print "" if BAREWORD;
 EXPECT
 Bareword "BAREWORD" not allowed while "strict subs" in use at - line 5.
 Execution of - aborted due to compilation errors.
+########
+# Ticket: 18927
+use strict 'subs';
+print 1..1, bad;
+EXPECT
+Bareword "bad" not allowed while "strict subs" in use at - line 3.
+Execution of - aborted due to compilation errors.