This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change .t to use new (?^...)
authorKarl Williamson <public@khwilliamson.com>
Tue, 21 Sep 2010 00:31:00 +0000 (18:31 -0600)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 23 Sep 2010 05:48:16 +0000 (22:48 -0700)
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

index 47afea4..f293228 100644 (file)
@@ -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, '\\\\' ],
     ),