4f890a3067e1198f missed qr// from t/re/pat.t in its refactoring in two places.

like($@, /A pattern/, "Description") is going to compare $@ with the
*result* of matching $_ against that pattern, not that pattern.

diff --git a/t/re/pat.t b/t/re/pat.t
index 3b170c8..a14cb4f 100644 (file)
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -317,7 +317,7 @@ sub run_tests {
         is($@, '', $message);
 
         eval "'aaa' =~ /a{1,$::reg_infty}/";
-        like($@, /^\QQuantifier in {,} bigger than/, $message);
+        like($@, qr/^\QQuantifier in {,} bigger than/, $message);
         eval "'aaa' =~ /a{1,$::reg_infty_p}/";
         like($@, qr/^\QQuantifier in {,} bigger than/, $message);
     }
@@ -338,7 +338,7 @@ sub run_tests {
             unlike("b$a=", qr/a$a=/, $message);
             like("b$a=", qr/ba+=/, $message);
 
-           like("ba$a=", /b(?:a|b)+=/, $message);
+           like("ba$a=", qr/b(?:a|b)+=/, $message);
         }
     }