From: Yitzchak Scott-Thoennes <sthoenna@efn.org>
Date: Sun, 10 Sep 2006 20:31:46 +0000 (-0700)
Subject: NULL and sv_setpv vs. newSVpv
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ddfa59c744ee4cca9b8e77d5034cfbacac89bcda;p=p5sagit%2Fp5-mst-13.2.git

NULL and sv_setpv vs. newSVpv
From: "Yitzchak Scott-Thoennes" <sthoenna@efn.org>
Message-ID: <8750.24.19.24.170.1157945506.squirrel@24.19.24.170>

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

diff --git a/sv.c b/sv.c
index 1673341..82c5b23 100644
--- a/sv.c
+++ b/sv.c
@@ -6933,7 +6933,7 @@ Perl_newSVpv(pTHX_ const char *s, STRLEN len)
     register SV *sv;
 
     new_SV(sv);
-    sv_setpvn(sv,s,len ? len : strlen(s));
+    sv_setpvn(sv, s, len || s == NULL ? len : strlen(s));
     return sv;
 }