From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 25 Jan 2003 00:25:50 +0000 (+0000)
Subject: make Copy On Write work once again
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b885210ee1978eaa367496754d209eb2c3de8222;p=p5sagit%2Fp5-mst-13.2.git

make Copy On Write work once again
Message-ID: <20030125002550.GG278@Bagpuss.unfortu.net>

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

diff --git a/sv.h b/sv.h
index a4ea892..82ef302 100644
--- a/sv.h
+++ b/sv.h
@@ -1055,7 +1055,7 @@ otherwise.
 
 #ifdef PERL_COPY_ON_WRITE
 #  define SvRELEASE_IVX(sv)   ((void)((SvFLAGS(sv) & (SVf_OOK|SVf_READONLY|SVf_FAKE)) \
-				&& sv_release_IVX(sv)))
+				&& Perl_sv_release_IVX(aTHX_ sv)))
 #  define SvIsCOW_normal(sv)	(SvIsCOW(sv) && SvLEN(sv))
 #else
 #  define SvRELEASE_IVX(sv)   ((void)SvOOK_off(sv))