const-ness fix in savepv's passing of NULL

p4raw-id: //depot/perlio@14268

1 files changed, 3 insertions, 3 deletions

diff --git a/util.c b/util.c
index 83b9026d8d..72c85cdc76 100644
--- a/util.c
+++ b/util.c
@@ -891,11 +891,11 @@ Copy a string to a safe spot.  This does not use an SV.
 char *
 Perl_savepv(pTHX_ const char *sv)
 {
-    register char *newaddr = sv;
+    register char *newaddr = Nullch;
     if (sv) {
 	New(902,newaddr,strlen(sv)+1,char);
 	(void)strcpy(newaddr,sv);
-    } 
+    }
     return newaddr;
 }
 
@@ -932,7 +932,7 @@ This does not use an SV.
 char *
 Perl_savesharedpv(pTHX_ const char *sv)
 {
-    register char *newaddr = sv;
+    register char *newaddr = Nullch;
     if (sv) {
 	newaddr = PerlMemShared_malloc(strlen(sv)+1);
     	(void)strcpy(newaddr,sv);