PATCH: GH #17371

[perl5.git] / t / re / pat.t

diff --git a/t/re/pat.t b/t/re/pat.t
index 41d27bb..803bc80 100644 (file)
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -24,7 +24,7 @@ BEGIN {
 
 skip_all_without_unicode_tables();
 
-plan tests => 1013;  # Update this when adding/deleting tests.
+plan tests => 1014;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
@@ -2087,6 +2087,9 @@ CODE
     {   # GH #17370, ASAN/valgrind out-of-bounds access
         fresh_perl_like('qr/\p{nv:qnan}/', qr/Can't find Unicode property definition/, {}, "GH #17370");
     }
+    {   # GH #17371, segfault
+        fresh_perl_like('qr/\p{nv=\\\\\}(?0)|\337ss|\337ss//', qr/Unicode property wildcard not terminated/, {}, "GH #17371");
+    }
 
   SKIP:
     {   # [perl #133921], segfault