From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 16 Dec 2005 18:12:26 +0000 (+0000)
Subject: Perl_sv_dup should be allocating bodies based on *size*, not the
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3043b442861dc32a5941608838b57d2e089a7e25;p=p5sagit%2Fp5-mst-13.2.git

Perl_sv_dup should be allocating bodies based on *size*, not the
length to copy.

p4raw-id: //depot/perl@26378
---

diff --git a/sv.c b/sv.c
index 5029fb2..b2a2fef 100644
--- a/sv.c
+++ b/sv.c
@@ -9314,9 +9314,9 @@ Perl_sv_dup(pTHX_ SV *sstr, CLONE_PARAMS* param)
 	    case SVt_PVNV:
 	    case SVt_PVIV:
 	    case SVt_PV:
-		assert(sv_type_details->copy);
+		assert(sv_type_details->size);
 		if (sv_type_details->arena) {
-		    new_body_inline(new_body, sv_type_details->copy, sv_type);
+		    new_body_inline(new_body, sv_type_details->size, sv_type);
 		    new_body
 			= (void*)((char*)new_body - sv_type_details->offset);
 		} else {