applied suggested patch for tracking line numbers correctly in

optimized blocks with a single statement; changed setcop to
setstate and added code for -Dx dumps
	Message-Id: <199906231627.RAA24033@crypt.compulink.co.uk>
	Subject: [PATCH 5.005_57] Line number error in optimised else()

p4raw-id: //depot/perl@3728

1 files changed, 6 insertions, 0 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 81a4f5699f..30b44064ef 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -69,6 +69,12 @@ PP(pp_null)
     return NORMAL;
 }
 
+PP(pp_setstate)
+{
+    PL_curcop = (COP*)PL_op;
+    return NORMAL;
+}
+
 PP(pp_pushmark)
 {
     PUSHMARK(PL_stack_sp);