This is a bug report for perl,
generated with the help of perlbug 1.43 running under perl 5.41.8.
Module: Devel::Peek
❯ gdb --args perl -M5.041 -MDevel::Peek=Dump -Mexperimental=class -E'class Foo {}; Dump Foo->new'
GNU gdb (GDB; openSUSE Tumbleweed) 14.2
Copyright (C) 2023 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
Type "show copying" and "show warranty" for details.
This GDB was configured as "x86_64-suse-linux".
Type "show configuration" for configuration details.
For bug reporting instructions, please see:
<http://bugs.opensuse.org/>.
Find the GDB manual and other documentation resources online at:
<http://www.gnu.org/software/gdb/documentation/>.
For help, type "help".
Type "apropos word" to search for commands related to "word"...
Reading symbols from perl...
(gdb) r
Starting program: /home/larsd/.local/share/perlbrew/perls/perl-5.41.8/bin/perl -M5.041 -MDevel::Peek=Dump -Mexperimental=class -Eclass\ Foo\ \{\}\;\ Dump\ Foo-\>new
[Thread debugging using libthread_db enabled]
Using host libthread_db library "/lib64/libthread_db.so.1".
SV = IV(0x55555555b6b8) at 0x55555555b6c8
REFCNT = 1
FLAGS = (ROK)
RV = 0x55555555b530
SV = PVOBJ(0x555555596390) at 0x55555555b530
REFCNT = 1
FLAGS = (OBJECT)
STASH = 0x5555555f4cc0 "Foo"
MAXFIELD = -1
FIELDS = 0x555555596300
Program received signal SIGSEGV, Segmentation fault.
0x00007ffff7c9ac2f in Perl_do_sv_dump (level=1, file=0x555555576da0, sv=0x55555555b530, nest=1, maxnest=4, dumpops=false, pvlim=0)
at dump.c:2852
2852 PADNAME **pname = PadnamelistARRAY(HvAUX(SvSTASH(sv))->xhv_class_fields);
(gdb) bt full
#0 0x00007ffff7c9ac2f in Perl_do_sv_dump (level=1, file=0x555555576da0, sv=0x55555555b530, nest=1, maxnest=4, dumpops=false,
pvlim=0) at dump.c:2852
count = <optimized out>
svp = 0x555555596300
pname = <optimized out>
d = 0x55555555b8f0
s = <optimized out>
flags = <optimized out>
type = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
#1 0x00007ffff7c999c7 in Perl_do_sv_dump (level=level@entry=0, file=0x555555576da0, sv=sv@entry=0x55555555b6c8, nest=nest@entry=0,
maxnest=maxnest@entry=4, dumpops=dumpops@entry=false, pvlim=0) at dump.c:2170
d = 0x55555555b4e8
s = <optimized out>
flags = <optimized out>
type = 1
p_ = <optimized out>
p_ = <optimized out>
--Type <RET> for more, q to quit, c to continue without paging--c
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
p_ = <optimized out>
#2 0x00007ffff7bec299 in S_do_dump (sv=0x55555555b6c8, lim=4)
at /home/larsd/.local/share/perlbrew/build/perl-5.41.8/perl-5.41.8/ext/Devel-Peek/Peek.xs:334
pv_lim_sv = <optimized out>
pv_lim = 0
dumpop = 0x55555559bc40
save_dumpindent = 4
#3 0x00007ffff7bec34e in S_pp_dump () at /home/larsd/.local/share/perlbrew/build/perl-5.41.8/perl-5.41.8/ext/Devel-Peek/Peek.xs:347
lim = <optimized out>
#4 0x00007ffff7d97b73 in Perl_runops_standard () at run.c:41
op = <optimized out>
#5 0x00007ffff7c7a839 in S_run_body (oldscope=<optimized out>) at perl.c:2883
No locals.
#6 perl_run (my_perl=<optimized out>) at perl.c:2798
oldscope = 1
ret = <optimized out>
cur_env = {je_prev = 0x7ffff7fb64a0 <PL_start_env>, je_buf = {{__jmpbuf = {140737488342840, -1470579409188483830, 0,
140737488342888, 140737354125312, 93824992247120, 1470579407616412938, 1470597209553177866}, __mask_was_saved = 0,
__saved_mask = {__val = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 93458488360960, 140737346446865, 1600877609,
16371054362459106048, 140737488342840, 6}}}}, je_ret = 0, je_mustcatch = false, je_old_delaymagic = 0,
je_old_stack_hwm = 140737488342888}
p_ = <optimized out>
#7 0x0000555555555232 in main (argc=<optimized out>, argv=<optimized out>, env=<optimized out>) at perlmain.c:127
exitstatus = <optimized out>
i = <optimized out>
Flags
Perl configuration
Site configuration information for perl 5.41.8:
Configured by larsd at Thu Jan 30 10:51:22 CET 2025.
Summary of my perl5 (revision 5 version 41 subversion 8) configuration:
Platform:
osname=linux
osvers=6.12.9-1-default
archname=x86_64-linux-ld
uname='linux denkheft 6.12.9-1-default #1 smp preempt_dynamic fri jan 10 08:30:10 utc 2025 (0ae2136) x86_64 x86_64 x86_64 gnulinux '
config_args='-de -Dprefix=/home/larsd/.local/share/perlbrew/perls/perl-5.41.8 -Dusedevel -Duseshrplib -Dman1dir=none -Dman3dir=none -Dcf_email=root@localhost -Dperladmin=root@localhost -Dusemorebits -Dusesitecustomize -Dusedevel -Accflags=-DNO_TAINT_SUPPORT -Accflags=-march=native -Accflags=-fPIC -Accflags=-DPERL_DISABLE_PMC -Accflags=-ggdb -Aeval:scriptdir=/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/bin'
hint=recommended
useposix=true
d_sigaction=define
useithreads=undef
usemultiplicity=undef
use64bitint=define
use64bitall=define
uselongdouble=define
usemymalloc=n
default_inc_excludes_dot=define
Compiler:
cc='cc'
ccflags ='-DNO_TAINT_SUPPORT -march=native -fPIC -DPERL_DISABLE_PMC -ggdb -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_FORTIFY_SOURCE=2'
optimize='-O2'
cppflags='-DNO_TAINT_SUPPORT -march=native -fPIC -DPERL_DISABLE_PMC -ggdb -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'
ccversion=''
gccversion='14.2.1 20241007 [revision 4af44f2cf7d281f3e4f3957efce10e8b2ccb2ad3]'
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='long double'
nvsize=16
Off_t='off_t'
lseeksize=8
alignbytes=16
prototype=define
Linker and Libraries:
ld='cc'
ldflags =' -fstack-protector-strong -L/usr/local/lib'
libpth=/usr/local/lib /lib/../lib64 /usr/lib/../lib64 /lib /usr/lib /lib64 /usr/lib64 /usr/local/lib64
libs=-lpthread -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc -lgdbm_compat
perllibs=-lpthread -ldl -lm -lcrypt -lutil -lc
libc=/lib/../lib64/libc.so.6
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,/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/lib/5.41.8/x86_64-linux-ld/CORE'
cccdlflags='-fPIC'
lddlflags='-shared -O2 -L/usr/local/lib -fstack-protector-strong'
---
@INC for perl 5.41.8:
/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/lib/site_perl/5.41.8/x86_64-linux-ld
/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/lib/site_perl/5.41.8
/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/lib/5.41.8/x86_64-linux-ld
/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/lib/5.41.8
---
Environment for perl 5.41.8:
HOME=/home/larsd
LANG=de_DE.UTF-8
LANGUAGE=
LC_CTYPE=de_DE.UTF-8
LD_LIBRARY_PATH (unset)
LOGDIR (unset)
PATH=/home/larsd/.local/share/perlbrew/bin:/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/bin:/home/larsd/.local/bin:/home/larsd/.local/share/asdf/shims:/home/larsd/.local/share/asdf/bin:/usr/local/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin
PERLBREW_HOME=/home/larsd/.local/share/perlbrew
PERLBREW_MANPATH=/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/man
PERLBREW_PATH=/home/larsd/.local/share/perlbrew/bin:/home/larsd/.local/share/perlbrew/perls/perl-5.41.8/bin
PERLBREW_PERL=perl-5.41.8
PERLBREW_ROOT=/home/larsd/.local/share/perlbrew
PERLBREW_SHELLRC_VERSION=0.98
PERLBREW_VERSION=0.98
PERLCRITIC=/home/larsd/.config/perlcriticrc
PERLREPL_HISTFILE=/home/larsd/.local/state/perlreplhist
PERLTIDY=/home/larsd/.config/perltidyrc
PERL_BADLANG (unset)
PERL_CPANM_HOME=/home/larsd/.cache/cpanm
PERL_CPANM_OPT=-M https://cpan.metacpan.org/ --verify --with-recommends --with-suggests --with-develop --with-all-features
PERL_EXTUTILS_AUTOINSTALL=--default-deps
PERL_MM_NONINTERACTIVE=1
PERL_MM_USE_DEFAULT=1
SHELL=/bin/bash
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4