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