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