This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [perl #18927] barewords with no errors
[perl5.git] / t / lib / strict / subs
index f6e05b3..4516de7 100644 (file)
@@ -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.