mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

remove unused PL_no_mem symbol

Browse Source
This commit is contained in:
Lukas Mai 2023-11-27 18:04:39 +01:00 committed by mauke
parent 7a39510b73
commit d06aed192c
3 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
globvar.sym
View File

@ -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

2
perl.h
View File

@ -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[]

2
t/porting/libperl.t
View File

@ -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;