From: Dagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Date: Sat, 4 May 2013 20:09:16 +0000 (+0100)
Subject: Avoid braces as regex delimiters when used escaped in the pattern
X-Git-Tag: v1.002000~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5002e2f016378ee8432a36a2258758d80451a7e3;p=gitmo%2FMoo.git

Avoid braces as regex delimiters when used escaped in the pattern

It warns in 5.17.x, and the parsing and metacharcter status is subject
to change in future versions of perl.
---

diff --git a/xt/moox-types.t b/xt/moox-types.t
index 59edbe4..162ed5d 100644
--- a/xt/moox-types.t
+++ b/xt/moox-types.t
@@ -51,7 +51,7 @@ eval q {
 
 like(
   $@,
-  qr{^error inflating attribute 'barble' for package 'Fooble': \$TYPE_MAP\{CODE\(\w+?\)\} did not return a valid type constraint},
+  qr/^error inflating attribute 'barble' for package 'Fooble': \$TYPE_MAP\{CODE\(\w+?\)\} did not return a valid type constraint/,
   'error message for incorrect type constraint inflation',
 );