From 5cc9e5c9d4584574ed7c24896215a21bdd0fd4b2 Mon Sep 17 00:00:00 2001
From: Robin Houston <robin@cpan.org>
Date: Thu, 6 Dec 2001 14:44:01 +0000
Subject: Re: weirdness in regexps Message-ID:
 <20011206144401.A27752@puffinry.freeserve.co.uk>

p4raw-id: //depot/perl@13490
---
 t/lib/strict/subs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 't')

diff --git a/t/lib/strict/subs b/t/lib/strict/subs
index ed4fe7a443..1e8b0588d8 100644
--- a/t/lib/strict/subs
+++ b/t/lib/strict/subs
@@ -317,3 +317,11 @@ Foo A 1
 Foo B 2
 Foo C 3
 Foo D 4
+########
+
+# Check that barewords on the RHS of a regex match are caught
+use strict;
+"" =~ foo;
+EXPECT
+Bareword "foo" not allowed while "strict subs" in use at - line 4.
+Execution of - aborted due to compilation errors.
-- 
cgit v1.2.1