diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-03 02:19:50 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-03 02:19:50 +0000 |
| commit | 14455d6cc193f1e4316f87b9dbe258db24ceb714 (patch) | |
| tree | 0722cfd9590d6e717d6a7f06bbb534593146dee6 /t/op | |
| parent | 36f31b5005f0d5567cbdeeea5b6180abf2936b23 (diff) | |
| download | perl-14455d6cc193f1e4316f87b9dbe258db24ceb714.tar.gz | |
/(?p{})/ changed to /(??{})/, per Larry's suggestion (from
Simon Cozens <simon@othersideofthe.earth.li>)
p4raw-id: //depot/perl@5467
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/misc.t | 2 | ||||
| -rwxr-xr-x | t/op/pat.t | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index b46c0ccb54..a595694e9b 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -482,7 +482,7 @@ new1new22DESTROY2new33DESTROY31DESTROY1 ######## re(); sub re { - my $re = join '', eval 'qr/(?p{ $obj->method })/'; + my $re = join '', eval 'qr/(??{ $obj->method })/'; $re; } EXPECT diff --git a/t/op/pat.t b/t/op/pat.t index 142b82e2ad..103e6132b5 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -370,7 +370,7 @@ print "ok $test\n"; $test++; my $matched; -$matched = qr/\((?:(?>[^()]+)|(?p{$matched}))*\)/; +$matched = qr/\((?:(?>[^()]+)|(??{$matched}))*\)/; @ans = @ans1 = (); push(@ans, $res), push(@ans1, $&) while $res = m/$matched/g; @@ -866,7 +866,7 @@ print "ok $test\n"; $test++; $brackets = qr{ - { (?> [^{}]+ | (?p{ $brackets }) )* } + { (?> [^{}]+ | (??{ $brackets }) )* } }x; "{{}" =~ $brackets; @@ -877,7 +877,7 @@ $test++; print "ok $test\n"; # Did we survive? $test++; -"something { long { and } hairy" =~ m/((?p{ $brackets }))/; +"something { long { and } hairy" =~ m/((??{ $brackets }))/; print "not " unless $1 eq "{ and }"; print "ok $test\n"; $test++; |