From: Dave Rolsky <autarch@urth.org>
Date: Tue, 28 Sep 2010 19:56:30 +0000 (-0500)
Subject: Fix test to work with 5.13.5
X-Git-Tag: 1.15~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bbdec0f610686e3d762ee2825b16359621eb72d9;p=gitmo%2FMoose.git

Fix test to work with 5.13.5
---

diff --git a/t/040_type_constraints/036_match_type_operator.t b/t/040_type_constraints/036_match_type_operator.t
index d969b6a..fd5cc88 100644
--- a/t/040_type_constraints/036_match_type_operator.t
+++ b/t/040_type_constraints/036_match_type_operator.t
@@ -159,6 +159,9 @@ sub ppprint {
                   => sub { die "I don't know what $_ is"                };
 }
 
+# The stringification of qr// has changed in 5.13.5+
+my $re_prefix = qr/x/ =~ /\(\?\^/ ? '(?^:' :'(?-xism:';
+
 is(
     ppprint(
         {
@@ -170,7 +173,7 @@ is(
             six   => Foo->new,
         }
     ),
-    '{ five => *ppprint, four => qr/(?-xism:.*?)/, one => [ 1, 2, "three", 4, "five", \"six" ], six => Foo(), three => sub { ... }, two => undef }',
+    qq~{ five => *ppprint, four => qr/$re_prefix.*?)/, one => [ 1, 2, "three", 4, "five", \\"six" ], six => Foo(), three => sub { ... }, two => undef }~,
     '... got the right pretty printed values'
 );