Undefined subroutine in ADJUST block causes segfault #23870
Description
Module:
class
Description
The following code causes a segmentation fault:
Steps to Reproduce
use v5.32;
use experimental qw(class);
sub foo {}
class A {
ADJUST { foo }
field $y : reader;
}
A->new;
Expected behavior
It should fail at runtime with
Undefined subroutine &A::foo called
Perl configuration
Summary of my perl5 (revision 5 version 40 subversion 0) configuration:
Platform:
osname=linux
osvers=gnulinux
archname=x86_64-linux-thread-multi
uname='nixpkgs'
config_args='-de -Dprefix=/nix/store/m3cc78gacmsq370nkbcszpmqs04k8zps-perl-5.40.0 -Dman1dir=/nix/store/m3cc78gacmsq370nkbcszpmqs04k8zps-perl-5.40.0/share/man/man1 -Dman3dir=/nix/store/m3cc78gacmsq370nkbcszpmqs04k8zps-perl-5.40.0/share/man/man3 -Dcc=cc -Duseshrplib -Uinstallusrbinperl -Dinstallstyle=lib/perl5 -Dlocincpth=/no-such-path/include -Dloclibpth=/nix/store/776irwlgfb65a782cxmyk61pck460fs9-glibc-2.40-66/lib -Dusethreads'
hint=recommended
useposix=true
d_sigaction=define
useithreads=define
usemultiplicity=define
use64bitint=define
use64bitall=define
uselongdouble=undef
usemymalloc=n
default_inc_excludes_dot=define
Compiler:
cc='cc'
ccflags ='-D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/no-such-path/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
optimize='-O2'
cppflags='-D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/no-such-path/include'
ccversion=''
gccversion='14.3.0'
gccosandvers=''
intsize=4
longsize=8
ptrsize=8
doublesize=8
byteorder=12345678
doublekind=3
d_longlong=define
longlongsize=8
d_longdbl=define
longdblsize=16
longdblkind=3
ivtype='long'
ivsize=8
nvtype='double'
nvsize=8
Off_t='off_t'
lseeksize=8
alignbytes=8
prototype=define
Linker and Libraries:
ld='cc'
ldflags =' -fstack-protector-strong -L/nix/store/776irwlgfb65a782cxmyk61pck460fs9-glibc-2.40-66/lib'
libpth=
libs=-lpthread -ldl -lm -lcrypt -lutil -lc
perllibs=-lpthread -ldl -lm -lcrypt -lutil -lc
libc=
so=so
useshrplib=true
libperl=libperl.so
gnulibc_version='2.40'
Dynamic Linking:
dlsrc=dl_dlopen.xs
dlext=so
d_dlsymun=undef
ccdlflags='-Wl,-E -Wl,-rpath,/nix/store/m3cc78gacmsq370nkbcszpmqs04k8zps-perl-5.40.0/lib/perl5/5.40.0/x86_64-linux-thread-multi/CORE'
cccdlflags='-fPIC'
lddlflags='-shared -O2 -L/nix/store/776irwlgfb65a782cxmyk61pck460fs9-glibc-2.40-66/lib -fstack-protector-strong'
Characteristics of this binary (from libperl):
Compile-time options:
HAS_LONG_DOUBLE
HAS_STRTOLD
HAS_TIMES
MULTIPLICITY
PERLIO_LAYERS
PERL_COPY_ON_WRITE
PERL_DONT_CREATE_GVSV
PERL_HASH_FUNC_SIPHASH13
PERL_HASH_USE_SBOX32
PERL_MALLOC_WRAP
PERL_OP_PARENT
PERL_PRESERVE_IVUV
PERL_USE_SAFE_PUTENV
USE_64_BIT_ALL
USE_64_BIT_INT
USE_ITHREADS
USE_LARGE_FILES
USE_LOCALE
USE_LOCALE_COLLATE
USE_LOCALE_CTYPE
USE_LOCALE_NUMERIC
USE_LOCALE_TIME
USE_PERLIO
USE_PERL_ATOF
USE_REENTRANT_API
USE_THREAD_SAFE_LOCALE
Built under linux
Compiled at Jun 9 2024 15:01:57
%ENV:
PERL5LIB="/user/perl5/lib/perl5"
PERL_LOCAL_LIB_ROOT="/user/perl5"
PERL_MB_OPT="--install_base "/user/perl5""
PERL_MM_OPT="INSTALL_BASE=/user/perl5"
@INC:
/user/perl5/lib/perl5/5.40.0/x86_64-linux-thread-multi
/user/perl5/lib/perl5/5.40.0
/user/perl5/lib/perl5/x86_64-linux-thread-multi
/user/perl5/lib/perl5
/nix/store/m3cc78gacmsq370nkbcszpmqs04k8zps-perl-5.40.0/lib/perl5/site_perl/5.40.0/x86_64-linux-thread-multi
/nix/store/m3cc78gacmsq370nkbcszpmqs04k8zps-perl-5.40.0/lib/perl5/site_perl/5.40.0
/nix/store/m3cc78gacmsq370nkbcszpmqs04k8zps-perl-5.40.0/lib/perl5/5.40.0/x86_64-linux-thread-multi
/nix/store/m3cc78gacmsq370nkbcszpmqs04k8zps-perl-5.40.0/lib/perl5/5.40.0