--- t/040_type_constraints/036_match_type_operator.t-   2010-09-28 21:36:29.000000000 +0200
+++ t/040_type_constraints/036_match_type_operator.t    2010-09-28 21:38:22.000000000 +0200
@@ -170,6 +170,9 @@
             six   => Foo->new,
         }
     ),
+    qr/x/=~/\(\?\^/ ?
+    '{ five => *ppprint, four => qr/(?^:.*?)/, one => [ 1, 2, "three", 4, "five", \"six" ], six => Foo(), three => sub { ... }, two => undef }'
+       :
     '{ five => *ppprint, four => qr/(?-xism:.*?)/, one => [ 1, 2, "three", 4, "five", \"six" ], six => Foo(), three => sub { ... }, two => undef }',
     '... got the right pretty printed values'
 );