Change 18265 by rgs@rgs-home on 2002/12/08 22:10:45
Subject: Re: [perl #18927] barewords with no errors
From: Abe Timmerman <[EMAIL PROTECTED]>
Date: Sun, 8 Dec 2002 17:12:56 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/lib/strict/subs#7 edit
Differences ...
==== //depot/perl/t/lib/strict/subs#7 (text) ====
Index: perl/t/lib/strict/subs
--- perl/t/lib/strict/subs#6~17934~ Thu Sep 26 11:50:02 2002
+++ perl/t/lib/strict/subs Sun Dec 8 14:10:45 2002
@@ -354,3 +354,10 @@
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.
End of Patch.
