Sophie: perl-2:5.14.2-8.1.mga2 src

perl-5.14.2-8.1.mga2.src.rpm

Info
Deps
Files
Scripts
ChangeLog
Location
Others versions
Analyse

X-Git-Url: http://perl5.git.perl.org/perl.git/blobdiff_plain/3c363322472ebbba6cfcdd732a52f7203bbcf9b9..b675304e3fdbcce3ef853b06b6ebe870d99faa7e:/util.c

diff --git a/util.c b/util.c
index 0ea39c6..230211e 100644
--- a/util.c
+++ b/util.c
@@ -3319,6 +3319,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) {