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, 7 insertions, 0 deletions

diff --git a/perlapi.c b/perlapi.c
index fb078f3ce9..a7934fb8a0 100755
--- a/perlapi.c
+++ b/perlapi.c
@@ -6981,6 +6981,13 @@ Perl_pp_setpriority(pTHXo)
     return ((CPerlObj*)pPerl)->Perl_pp_setpriority();
 }
 
+#undef  Perl_pp_setstate
+OP *
+Perl_pp_setstate(pTHXo)
+{
+    return ((CPerlObj*)pPerl)->Perl_pp_setstate();
+}
+
 #undef  Perl_pp_sge
 OP *
 Perl_pp_sge(pTHXo)