From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 6 Jan 2004 18:57:29 +0000 (+0000)
Subject: Seems that sv_setsv_cow needs to be visible to core extensions,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=049737a6f0a706e47a848e799c32df4d07613448;p=p5sagit%2Fp5-mst-13.2.git

Seems that sv_setsv_cow needs to be visible to core extensions,
so that re will build properly on Win32. Thanks to Steve Hay for
trying COW and finding the problems.

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

diff --git a/embed.fnc b/embed.fnc
index 0064e8b..4e5665e 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1323,7 +1323,7 @@ Apd	|void	|sv_copypv	|SV* dsv|SV* ssv
 Ap	|char*	|my_atof2	|const char *s|NV* value
 Apn	|int	|my_socketpair	|int family|int type|int protocol|int fd[2]
 #ifdef PERL_COPY_ON_WRITE
-pMX	|SV*	|sv_setsv_cow	|SV* dsv|SV* ssv
+pMXE	|SV*	|sv_setsv_cow	|SV* dsv|SV* ssv
 #endif
 
 #if defined(USE_PERLIO) && !defined(USE_SFIO)
diff --git a/embed.h b/embed.h
index e6d51b5..d3f3d97 100644
--- a/embed.h
+++ b/embed.h
@@ -2050,7 +2050,7 @@
 #define my_atof2		Perl_my_atof2
 #define my_socketpair		Perl_my_socketpair
 #ifdef PERL_COPY_ON_WRITE
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
 #define sv_setsv_cow		Perl_sv_setsv_cow
 #endif
 #endif
@@ -4543,7 +4543,7 @@
 #define my_atof2(a,b)		Perl_my_atof2(aTHX_ a,b)
 #define my_socketpair		Perl_my_socketpair
 #ifdef PERL_COPY_ON_WRITE
-#ifdef PERL_CORE
+#if defined(PERL_CORE) || defined(PERL_EXT)
 #define sv_setsv_cow(a,b)	Perl_sv_setsv_cow(aTHX_ a,b)
 #endif
 #endif