From 4c2c679ff9fc18054795b9b7b28e37453e57d146 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 20 Sep 2010 18:31:00 -0600 Subject: 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. --- ext/B/t/optree_constants.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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, '\\\\' ], ), -- cgit v1.2.1