Re: die with a reference should use overload "" operator

	Message-ID: <19981024214550.C508@pobox.com>

p4raw-id: //depot/perl@2077

diff --git a/pp_ctl.c b/pp_ctl.c
index ec53dad..f90eff9 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1227,6 +1227,8 @@ die_where(char *message)
            return pop_return();
        }
     }
+    if (!message)
+       message = SvPVx(ERRSV, PL_na);
     PerlIO_printf(PerlIO_stderr(), "%s",message);
     PerlIO_flush(PerlIO_stderr());
     my_failure_exit();