Skip to content

Commit d06aed1

Browse files
committed
remove unused PL_no_mem symbol
1 parent 7a39510 commit d06aed1

File tree

3 files changed

+1
-4
lines changed

3 files changed

+1
-4
lines changed

globvar.sym

-1
Original file line numberDiff line numberDiff line change
@@ -37,7 +37,6 @@ PL_no_dir_func
3737
PL_no_func
3838
PL_no_helem_sv
3939
PL_no_localize_ref
40-
PL_no_mem
4140
PL_no_modify
4241
PL_no_myglob
4342
PL_no_security

perl.h

-2
Original file line numberDiff line numberDiff line change
@@ -5392,8 +5392,6 @@ EXTCONST char PL_no_helem_sv[]
53925392
INIT("Modification of non-creatable hash value attempted, subscript \"%" SVf "\"");
53935393
EXTCONST char PL_no_modify[]
53945394
INIT("Modification of a read-only value attempted");
5395-
EXTCONST char PL_no_mem[sizeof("Out of memory!\n")]
5396-
INIT("Out of memory!\n");
53975395
EXTCONST char PL_no_security[]
53985396
INIT("Insecure dependency in %s%s");
53995397
EXTCONST char PL_no_sock_func[]

t/porting/libperl.t

+1-1
Original file line numberDiff line numberDiff line change
@@ -341,7 +341,7 @@ unless (exists $symbols{text}) {
341341
ok($symbols{obj}{'util.o'}, "has object util.o");
342342
ok($symbols{text}{'Perl_croak'}{'util.o'}, "has text Perl_croak in util.o");
343343
ok(exists $symbols{data}{const}, "has data const symbols");
344-
ok($symbols{data}{const}{PL_no_mem}{'globals.o'}, "has PL_no_mem");
344+
ok($symbols{data}{const}{PL_no_modify}{'globals.o'}, "has PL_no_modify");
345345

346346
my $nocommon = $Config{ccflags} =~ /-fno-common/ ? 1 : 0;
347347

0 commit comments

Comments
 (0)