From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 28 Mar 2009 23:00:15 +0000 (+0000)
Subject: In Perl_sv_setsv_cow(), dstr can be NULL.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7536ed57886a47a6a6af672eef2ce348b3b4a684;p=p5sagit%2Fp5-mst-13.2.git

In Perl_sv_setsv_cow(), dstr can be NULL.
---

diff --git a/embed.fnc b/embed.fnc
index cae666c..27dd26a 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -1866,7 +1866,7 @@ 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
 : Used in pp_hot.c and regexec.c
-pMXE	|SV*	|sv_setsv_cow	|NN SV* dstr|NN SV* sstr
+pMXE	|SV*	|sv_setsv_cow	|NULLOK 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 f5cb2d2..552b9f6 100644
--- a/proto.h
+++ b/proto.h
@@ -5968,10 +5968,9 @@ PERL_CALLCONV int	Perl_my_socketpair(int family, int type, int protocol, int fd[
 PERL_CALLCONV int	Perl_my_dirfd(pTHX_ DIR* dir);
 #ifdef PERL_OLD_COPY_ON_WRITE
 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(dstr); assert(sstr)
+	assert(sstr)
 
 #endif