Some calls to PerlMemShared_alloc() aren't checking the return value.

Bug spotted by Nigel Sandever

p4raw-id: //depot/perl@23121

1 files changed, 5 insertions, 0 deletions

diff --git a/util.c b/util.c
index 1892fec3f5..030c70607b 100644
--- a/util.c
+++ b/util.c
@@ -803,6 +803,11 @@ Perl_savesharedpv(pTHX_ const char *pv)
     register char *newaddr = Nullch;
     if (pv) {
 	newaddr = (char*)PerlMemShared_malloc(strlen(pv)+1);
+	if (!newaddr) {
+	    PerlLIO_write(PerlIO_fileno(Perl_error_log),
+			  PL_no_mem, strlen(PL_no_mem));
+	    my_exit(1);
+	}
     	(void)strcpy(newaddr,pv);
     }
     return newaddr;