diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-19 13:08:03 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-19 13:08:03 +0000 |
| commit | dd5def096b7b2dabfe2022669c29c16240d7da96 (patch) | |
| tree | e1f1820ca585733b77168de8466f8cfb58d21692 /t | |
| parent | b54fc2b60bc365faffaf24860c5306add8af3c87 (diff) | |
| download | perl-dd5def096b7b2dabfe2022669c29c16240d7da96.tar.gz | |
Revert change #30081 at dmq's request, and mark its tests
as TODO. (This should restore compilation with g++)
p4raw-link: @30081 on //depot/perl: ded05c2a789e70bb7204e21b2aa98c6d1ac776c2
p4raw-id: //depot/perl@30351
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 46900e82e8..fe2eef63a4 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4267,11 +4267,11 @@ sub kt $re = qr/^ ( (??{ $grabit }) ) $ /x; my @res = '0902862349' =~ $re; iseq(join("-",@res),"0902862349", - 'PL_curpm is set properly on nested eval'); + 'PL_curpm is set properly on nested eval # TODO'); our $qr = qr/ (o) (??{ $1 }) /x; ok( 'boob'=~/( b (??{ $qr }) b )/x && 1, - "PL_curpm, nested eval"); + "PL_curpm, nested eval # TODO"); } { |