diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-11 10:08:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-11 10:08:47 +0000 |
| commit | 96776eda41a10f1802094966189301751fcdd558 (patch) | |
| tree | 53055a37fcdc55960e408805abc2c8e014874b1b /t/op/pat.t | |
| parent | 48a26b3aff3d4a22b7cc3f3ba0bb5977d168a801 (diff) | |
| download | perl-96776eda41a10f1802094966189301751fcdd558.tar.gz | |
fix optimizer bug in /^(?p{"a"})b/ (from Ilya Zakharevich)
p4raw-id: //depot/perl@5644
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 103e6132b5..7f20185e93 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -369,6 +369,10 @@ print "# ans='@ans'\n# expect='$expect'\nnot " if "@ans" ne $expect; print "ok $test\n"; $test++; +print "not " unless "abc" =~ /^(??{"a"})b/; +print "ok $test\n"; +$test++; + my $matched; $matched = qr/\((?:(?>[^()]+)|(??{$matched}))*\)/; |