[perl #37648] segfault with PERLIO_DEBUG

[p5sagit/p5-mst-13.2.git] / pp_hot.c

diff --git a/pp_hot.c b/pp_hot.c
index f56b7de..0f13d5a 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -345,7 +345,7 @@ PP(pp_defined)
         if (!sv || !SvANY(sv))
             RETPUSHNO;
     } else
-        DIE(aTHX_ "panic:  Invalid op passed to dd_defined()");
+        DIE(aTHX_ "panic:  Invalid op (%s) in pp_defined()", OP_NAME(PL_op));
 
     switch (SvTYPE(sv)) {
     case SVt_PVAV: