From 049737a6f0a706e47a848e799c32df4d07613448 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Tue, 6 Jan 2004 18:57:29 +0000 Subject: [PATCH] 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 --- embed.fnc | 2 +- embed.h | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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 -- 2.7.4