From 282634ed6aed040ba8694186b410779d98331944 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Wed, 7 Nov 2018 18:44:56 -0700
Subject: [PATCH] t/re/reg_mesg.t: Add test

Verify this still works after the recent removal of the sizing pass
---
 t/re/reg_mesg.t | 1 +
 1 file changed, 1 insertion(+)

diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t
index 369aaea..9717b46 100644
--- a/t/re/reg_mesg.t
+++ b/t/re/reg_mesg.t
@@ -529,6 +529,7 @@ my @warning = (
     '/(?=a)*/' => '(?=a)* matches null string many times {#} m/(?=a)*{#}/',
     'my $x = \'\m\'; qr/a$x/' => 'Unrecognized escape \m passed through {#} m/a\m{#}/',
     '/\q/' => 'Unrecognized escape \q passed through {#} m/\q{#}/',
+    '/\q\p{Any}/' => 'Unrecognized escape \q passed through {#} m/\q{#}\p{Any}/',
 
     # These two tests do not include the marker, because regcomp.c no
     # longer knows where it goes by the time this warning is emitted.
-- 
1.8.3.1