From: Steve Hay <SteveHay@planit.com>
Date: Wed, 27 Feb 2008 12:29:36 +0000 (+0000)
Subject: Change variable name to fix debug build with PERL_OLD_COPY_ON_WRITE
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bcfe2509c9c690ad84f6fd6d67302d2fbefea805;p=p5sagit%2Fp5-mst-13.2.git

Change variable name to fix debug build with PERL_OLD_COPY_ON_WRITE

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

diff --git a/embed.fnc b/embed.fnc
index b036b0a..79944b4 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1675,7 +1675,7 @@ Ap	|char*	|my_atof2	|NN const char *s|NN NV* value
 Apn	|int	|my_socketpair	|int family|int type|int protocol|int fd[2]
 Ap	|int	|my_dirfd	|NULLOK DIR* dir
 #ifdef PERL_OLD_COPY_ON_WRITE
-pMXE	|SV*	|sv_setsv_cow	|NN SV* dsv|NN SV* ssv
+pMXE	|SV*	|sv_setsv_cow	|NN SV* dstr|NN SV* sstr
 #endif
 
 Aop	|const char *|PerlIO_context_layers|NULLOK const char *mode
diff --git a/proto.h b/proto.h
index bbbe5a8..7ba57ff 100644
--- a/proto.h
+++ b/proto.h
@@ -5922,11 +5922,11 @@ PERL_CALLCONV char*	Perl_my_atof2(pTHX_ const char *s, NV* value)
 PERL_CALLCONV int	Perl_my_socketpair(int family, int type, int protocol, int fd[2]);
 PERL_CALLCONV int	Perl_my_dirfd(pTHX_ DIR* dir);
 #ifdef PERL_OLD_COPY_ON_WRITE
-PERL_CALLCONV SV*	Perl_sv_setsv_cow(pTHX_ SV* dsv, SV* ssv)
+PERL_CALLCONV SV*	Perl_sv_setsv_cow(pTHX_ SV* dstr, SV* sstr)
 			__attribute__nonnull__(pTHX_1)
 			__attribute__nonnull__(pTHX_2);
 #define PERL_ARGS_ASSERT_SV_SETSV_COW	\
-	assert(dsv); assert(ssv)
+	assert(dstr); assert(sstr)
 
 #endif