From nick@ni-s.u-net.com

BEGIN { $SIG{__DIE__} = sub { require Carp​::Heavy; die @​_ }; }
use Carp;

package BaseClass;
sub content {}

package DerivedClass;
use base BaseClass;

package main;

Site configuration information for perl 5.00560​:

Configured by nick at Sun Aug 8 16​:09​:53 BST 1999.

Summary of my perl5 (revision 5.0 version 5 subversion 60) configuration​:
  Platform​:
  osname=linux, osvers=2.2.5, archname=i686-linux
  uname='linux bactrian 2.2.5 #43 thu jul 8 19​:22​:12 bst 1999 i686 unknown '
  config_args='-der -O -Dcc=gcc -Doptimize=-O2 -g -Dusemymalloc=n -Dusevfork=false'
  hint=recommended, useposix=true, d_sigaction=define
  usethreads=undef useperlio=undef d_sfio=undef
  use64bits=undef usemultiplicity=undef
  Compiler​:
  cc='gcc', optimize='-O2 -g', gccversion=egcs-2.91.66 19990314 (egcs-1.1.2 release)
  cppflags='-Dbool=char -DHAS_BOOL -DDEBUGGING -I/usr/local/include'
  ccflags ='-Dbool=char -DHAS_BOOL -DDEBUGGING -I/usr/local/include'
  stdchar='char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
  alignbytes=4, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='gcc', ldflags =' -L/usr/local/lib'
  libpth=/usr/local/lib /lib /usr/lib
  libs=-lnsl -lndbm -lgdbm -ldbm -ldb -ldl -lm -lc -lposix -lcrypt
  libc=, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking​:
  dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
  cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches​:
 

@​INC for perl 5.00560​:
  /usr/local/lib/perl5/5.00560/i686-linux
  /usr/local/lib/perl5/5.00560
  /usr/local/lib/site_perl/5.00560/i686-linux
  /usr/local/lib/site_perl
  .

Environment for perl 5.00560​:
  HOME=/home/nick
  LANG=POSIX
  LANGUAGE (unset)
  LD_LIBRARY_PATH (unset)
  LOGDIR (unset)
  PATH=/home/nick/bin​:/usr/local/bin​:/usr/bin​:/usr/X11R6/bin​:/bin​:/usr/openwin/bin​:/usr/games/bin​:/usr/games​:/opt/gnome/bin​:/opt/kde/bin​:.
  PERL_BADLANG (unset)
  SHELL=/bin/bash

From [Unknown Contact. See original ticket]

Nick Ing-Simmons <nick@​ing-simmons.net> writes​:

Nick Ing-Simmons <nick@​ni-s.u-net.com> writes​:

This is a bug report for perl from nick@​bactrian.ni-s.u-net.com,
generated with the help of perlbug 1.26 running under perl 5.00560.

Shorter testcase​:

$SIG{__DIE__} = sub { eval {1}; die shift };
eval { die "!\n" };
__END__

The eval {1} is the essence of "require Carp​::Heavy"
and the "die shift" is essense of Carp​::Confess

This fails on 5.005_03 too. (But not 5.00404...)
So the problem is not with 5.005_58+ core as such, just that
new light-weight "Carp" tickles a bug caused by eval inside die.

Stated like that I seem to recall someone reporting it before...

--
Nick Ing-Simmons

From [Unknown Contact. See original ticket]

Nick Ing-Simmons <nick@​ni-s.u-net.com> writes​:

This is a bug report for perl from nick@​bactrian.ni-s.u-net.com,
generated with the help of perlbug 1.26 running under perl 5.00560.

Shorter testcase​:

$SIG{__DIE__} = sub { eval {1}; die shift };
eval { die "!\n" };
__END__

The eval {1} is the essence of "require Carp​::Heavy"
and the "die shift" is essense of Carp​::Confess

--
Nick Ing-Simmons

From @vanstyn

As originally reported, this code gave a "panic​: POPSTACK" under 5.005_03
and 5.005_60​:

$SIG{__DIE__} = sub { eval {1}; die @​_ };
eval { die "die message\n" };
__END__

I note that under 5.6.0 it no longer panics, but the die message is still
not printed.

Hugo

From The RT System itself

the DIE signal is intercepted by the eval; check $@​ for the error message as of @​6640.