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