diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-05 14:13:48 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-05 14:13:48 +0000 |
| commit | f7c278bfa9715e5e699e162924f507b3b71db8fd (patch) | |
| tree | 0aaf84a222dcd4a126464cf9bf3fd3c4345f8874 /ext/B | |
| parent | efd26800e76b6f876fd6abe3a3f7e3e4128150a9 (diff) | |
| download | perl-f7c278bfa9715e5e699e162924f507b3b71db8fd.tar.gz | |
Abolish wrapped in struct regexp - store the wrapped pattern pointer
in the SvPVX().
p4raw-id: //depot/perl@32841
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/t/optree_constants.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ext/B/t/optree_constants.t b/ext/B/t/optree_constants.t index c05138b633..bf6384b3bd 100644 --- a/ext/B/t/optree_constants.t +++ b/ext/B/t/optree_constants.t @@ -59,7 +59,11 @@ my $want = { # expected types, how value renders in-line, todos (maybe) myaref => [ $RV_class, '\\\\' ], myfl => [ 'NV', myfl ], myint => [ 'IV', myint ], + $] >= 5.011 ? ( + myrex => [ $RV_class, '\\\\"\\(?-xism:Foo\\)"' ], + ) : ( myrex => [ $RV_class, '\\\\' ], + ), myundef => [ 'NULL', ], ) : ( myaref => [ 'PVIV', '' ], |