fix perl #132630, dont try to fbm match past end of string

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

diff --git a/t/re/pat.t b/t/re/pat.t
index 27d9833..d327a36 100644 (file)
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -23,7 +23,7 @@ BEGIN {
     skip_all('no re module') unless defined &DynaLoader::boot_DynaLoader;
     skip_all_without_unicode_tables();
 
-plan tests => 845;  # Update this when adding/deleting tests.
+plan tests => 846;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
@@ -1938,6 +1938,9 @@ EOP
     {
         fresh_perl_is('"AA" =~ m/AA{1,0}/','',{},"handle OPFAIL insert properly");
     }
+    {
+        fresh_perl_is('$_="0\x{1000000}";/^000?\0000/','',{},"dont throw assert errors trying to fbm past end of string");
+    }
 
 } # End of sub run_tests