1 files changed, 3 insertions, 0 deletions
diff --git a/util.c b/util.c
index 8bd20941a2..26330349b5 100644
--- a/util.c
+++ b/util.c
@@ -3256,6 +3256,9 @@ Perl_repeatcpy(register char *to, register const char *from, I32 len, register I
 {
     PERL_ARGS_ASSERT_REPEATCPY;
 
+    if (count < 0)
+	Perl_croak_nocontext("%s",PL_memory_wrap);
+
     if (len == 1)
 	memset(to, *from, count);
     else if (count) {