From: Graham Barr <gbarr@pobox.com>
Date: Sat, 24 Oct 1998 21:45:50 +0000 (-0500)
Subject: Re: die with a reference  should use overload "" operator
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9cc2fdd394015171a9ffc8bf66f62a26748f2a22;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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();