diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-09-20 18:31:00 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-22 22:48:16 -0700 |
| commit | 4c2c679ff9fc18054795b9b7b28e37453e57d146 (patch) | |
| tree | 501f149ae087f758718c26b82e018418631ce319 /ext | |
| parent | ed215d3cfa99c10e51ffe780098978517bd67537 (diff) | |
| download | perl-4c2c679ff9fc18054795b9b7b28e37453e57d146.tar.gz | |
Change .t to use new (?^...)
There is a line in this .t which uses the old regex stringification.
The contents are not currently tested for, but for cleanliness, change
to the new.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/t/optree_constants.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/t/optree_constants.t b/ext/B/t/optree_constants.t index 47afea4999..f293228892 100644 --- a/ext/B/t/optree_constants.t +++ b/ext/B/t/optree_constants.t @@ -54,7 +54,7 @@ my $want = { # expected types, how value renders in-line, todos (maybe) myfl => [ 'NV', myfl ], myint => [ 'IV', myint ], $] >= 5.011 ? ( - myrex => [ $RV_class, '\\\\"\\(?-xism:Foo\\)"' ], + myrex => [ $RV_class, '\\\\"\\(?^:Foo\\)"' ], ) : ( myrex => [ $RV_class, '\\\\' ], ), |