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 (file)
--- 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))