split: prevent a panic in some cases with \G

Fixes Perl#16971
tonycoz · Sep 20, 2023 · 1d3e71c · 1d3e71c
1 parent ea05091
commit 1d3e71c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 1 deletion.
diff --git a/pp.c b/pp.c
@@ -6877,6 +6877,8 @@ PP_wrapped(pp_split,
                 else
                     trailing_empty = 0;
             } else {
+                if (m < s)
+                    m = s;
                 dstr = newSVpvn_flags(s, m-s, flags);
                 XPUSHs(dstr);
             }

diff --git a/t/op/split.t b/t/op/split.t
@@ -7,7 +7,7 @@ BEGIN {
     require './charset_tools.pl';
 }
 
-plan tests => 197;
+plan tests => 198;
 
 $FS = ':';
 
@@ -725,3 +725,4 @@ SKIP: {
 		}, "special-case pattern for $prog");
 	}
 }
+fresh_perl_is('split /00|0\G/, "000"', '', {}, "split with \\G doesn't panic");