Change 18595 by rgs@rgs-home on 2003/01/27 20:32:01
Subject: [PATCH] make Copy On Write work once again
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Sat, 25 Jan 2003 00:25:50 +0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/sv.h#133 edit
Differences ...
==== //depot/perl/sv.h#133 (text) ====
Index: perl/sv.h
--- perl/sv.h#132~18552~ Wed Jan 22 04:34:06 2003
+++ perl/sv.h Mon Jan 27 12:32:01 2003
@@ -1055,7 +1055,7 @@
#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))
End of Patch.
