$ perl -we 'sub foo { warn "hi"; } sub bar { { local $SIG{__WARN__}; } goto &foo; } $SIG{__WARN__} = \&bar; warn "uh oh"'Segmentation fault (core dumped)

$ perl -we 'sub foo { warn "hi"; } sub bar { { local $SIG{__WARN__}; } goto &foo; } $SIG{__WARN__} = \&bar; warn "uh oh"'hi at -e line 1.

Summary of my perl5 (revision 5 version 40 subversion 1) configuration:     Platform:    osname=linux    osvers=6.8.0-110051-tuxedo    archname=x86_64-linux-thread-multi-ld    uname='linux luum 6.8.0-110051-tuxedo #52tux1 smp preempt_dynamic wed dec 18 12:34:04 utc 2024 x86_64 x86_64 x86_64 gnulinux '    config_args='-de -Dprefix=/home/mauke/perl5/perlbrew/perls/perl-5.40.1 -Dcc=c-gcc -Doptimize=-O2 -march=native -flto=auto -Dman1dir=none -Dman3dir=none -Dusethreads -Duselongdouble -Aeval:scriptdir=/home/mauke/perl5/perlbrew/perls/perl-5.40.1/bin'    hint=recommended    useposix=true    d_sigaction=define    useithreads=define    usemultiplicity=define    use64bitint=define    use64bitall=define    uselongdouble=define    usemymalloc=n    default_inc_excludes_dot=define  Compiler:    cc='c-gcc'    ccflags ='-D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'    optimize='-O2 -march=native -flto=auto'    cppflags='-D_REENTRANT -D_GNU_SOURCE -fwrapv -fno-strict-aliasing -pipe -fstack-protector-strong -I/usr/local/include'    ccversion=''    gccversion='13.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='long double'    nvsize=16    Off_t='off_t'    lseeksize=8    alignbytes=16    prototype=define  Linker and Libraries:    ld='c-gcc'    ldflags =' -fstack-protector-strong -L/usr/local/lib'    libpth=/usr/local/lib /usr/lib/x86_64-linux-gnu /usr/lib /usr/lib64    libs=-lpthread -ldb -ldl -lm -lcrypt -lutil -lc    perllibs=-lpthread -ldl -lm -lcrypt -lutil -lc    libc=/lib/x86_64-linux-gnu/libc.so.6    so=so    useshrplib=false    libperl=libperl.a    gnulibc_version='2.39'  Dynamic Linking:    dlsrc=dl_dlopen.xs    dlext=so    d_dlsymun=undef    ccdlflags='-Wl,-E'    cccdlflags='-fPIC'    lddlflags='-shared -O2 -march=native -flto=auto -L/usr/local/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_LONG_DOUBLE    USE_PERLIO    USE_PERL_ATOF    USE_REENTRANT_API    USE_THREAD_SAFE_LOCALE  Built under linux  Compiled at Jan 20 2025 18:07:12  %ENV:    PERLBREW_BASHRC_VERSION="0.74"    PERLBREW_HOME="/home/mauke/.perlbrew"    PERLBREW_MANPATH="/home/mauke/perl5/perlbrew/perls/perl-5.40.1/man"    PERLBREW_PATH="/home/mauke/perl5/perlbrew/bin:/home/mauke/perl5/perlbrew/perls/perl-5.40.1/bin"    PERLBREW_PERL="perl-5.40.1"    PERLBREW_ROOT="/home/mauke/perl5/perlbrew"    PERLBREW_VERSION="0.98"    PERLDOC="-oman"    PERL_UNICODE="SAL"  @INC:    /home/mauke/perl5/perlbrew/perls/perl-5.40.1/lib/site_perl/5.40.1/x86_64-linux-thread-multi-ld    /home/mauke/perl5/perlbrew/perls/perl-5.40.1/lib/site_perl/5.40.1    /home/mauke/perl5/perlbrew/perls/perl-5.40.1/lib/5.40.1/x86_64-linux-thread-multi-ld    /home/mauke/perl5/perlbrew/perls/perl-5.40.1/lib/5.40.1