pp_repeat: handle large source strings for scalar repeat

[perl5.git] / util.c

diff --git a/util.c b/util.c
index dbe6c57..c7efba0 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3252,7 +3252,7 @@ all.
 
 #define PERL_REPEATCPY_LINEAR 4
 void
-Perl_repeatcpy(char *to, const char *from, I32 len, IV count)
+Perl_repeatcpy(char *to, const char *from, SSize_t len, IV count)
 {
     PERL_ARGS_ASSERT_REPEATCPY;