diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-09-09 19:41:54 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-15 12:33:49 +0000 |
| commit | 8bfdd7d95bcb290ba639e2c88c5d4370ab8fcfc0 (patch) | |
| tree | 73ff47381401919d6d90daccf674fc93918f21a7 /t/run | |
| parent | c366adb4d8e96138e96920f4a327296016a696e0 (diff) | |
| download | perl-8bfdd7d95bcb290ba639e2c88c5d4370ab8fcfc0.tar.gz | |
Re: [ID 20010815.012] Unfortunate interaction between -0 cmd line arg & (??{CODE}) regex
Message-Id: <200109091741.f89HfsM18534@crypt.compulink.co.uk>
p4raw-id: //depot/perl@12027
Diffstat (limited to 't/run')
| -rw-r--r-- | t/run/kill_perl.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/t/run/kill_perl.t b/t/run/kill_perl.t index 225208e7f6..9dcd59dc01 100644 --- a/t/run/kill_perl.t +++ b/t/run/kill_perl.t @@ -802,3 +802,12 @@ undef foo; EXPECT Can't modify constant item in undef operator at - line 1, near "foo;" Execution of - aborted due to compilation errors. +######## (?{...}) compilation bounces on PL_rs +-0 +{ + /(?{ $x })/; + # { +} +BEGIN { print "ok\n" } +EXPECT +ok |