From d06aed192cf5e83e669d3792a546909901fa3485 Mon Sep 17 00:00:00 2001
From: Lukas Mai <lukasmai.403@gmail.com>
Date: Mon, 27 Nov 2023 18:04:39 +0100
Subject: [PATCH] remove unused PL_no_mem symbol

---
 globvar.sym         | 1 -
 perl.h              | 2 --
 t/porting/libperl.t | 2 +-
 3 files changed, 1 insertion(+), 4 deletions(-)

diff --git a/globvar.sym b/globvar.sym
index e086612f1c23..b9cea72af64b 100644
--- a/globvar.sym
+++ b/globvar.sym
@@ -37,7 +37,6 @@ PL_no_dir_func
 PL_no_func
 PL_no_helem_sv
 PL_no_localize_ref
-PL_no_mem
 PL_no_modify
 PL_no_myglob
 PL_no_security
diff --git a/perl.h b/perl.h
index 0c57096aed7f..35ebb7d856ba 100644
--- a/perl.h
+++ b/perl.h
@@ -5392,8 +5392,6 @@ EXTCONST char PL_no_helem_sv[]
   INIT("Modification of non-creatable hash value attempted, subscript \"%" SVf "\"");
 EXTCONST char PL_no_modify[]
   INIT("Modification of a read-only value attempted");
-EXTCONST char PL_no_mem[sizeof("Out of memory!\n")]
-  INIT("Out of memory!\n");
 EXTCONST char PL_no_security[]
   INIT("Insecure dependency in %s%s");
 EXTCONST char PL_no_sock_func[]
diff --git a/t/porting/libperl.t b/t/porting/libperl.t
index c2a4043030ad..5f8a0e5886b6 100644
--- a/t/porting/libperl.t
+++ b/t/porting/libperl.t
@@ -341,7 +341,7 @@ unless (exists $symbols{text}) {
 ok($symbols{obj}{'util.o'}, "has object util.o");
 ok($symbols{text}{'Perl_croak'}{'util.o'}, "has text Perl_croak in util.o");
 ok(exists $symbols{data}{const}, "has data const symbols");
-ok($symbols{data}{const}{PL_no_mem}{'globals.o'}, "has PL_no_mem");
+ok($symbols{data}{const}{PL_no_modify}{'globals.o'}, "has PL_no_modify");
 
 my $nocommon = $Config{ccflags} =~ /-fno-common/ ? 1 : 0;