diff options
| author | Robin Houston <robin@cpan.org> | 2001-12-06 14:44:01 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-06 15:08:40 +0000 |
| commit | 5cc9e5c9d4584574ed7c24896215a21bdd0fd4b2 (patch) | |
| tree | e1c087614ad4ca2c85a89f881f831fe0ffcdcfc8 /t/lib | |
| parent | 3fcc9feac9b4526c9e0fb8c6850f10447473b930 (diff) | |
| download | perl-5cc9e5c9d4584574ed7c24896215a21bdd0fd4b2.tar.gz | |
Re: weirdness in regexps
Message-ID: <20011206144401.A27752@puffinry.freeserve.co.uk>
p4raw-id: //depot/perl@13490
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/strict/subs | 8 |
1 files changed, 8 insertions, 0 deletions
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. |