Fix for [perl #36853] -Dx can crash bleadperl

The PL_op_sequence global hash wasn't initialized

p4raw-id: //depot/perl@25296

1 files changed, 2 insertions, 4 deletions

diff --git a/dump.c b/dump.c
index 82051320f1..9dc7db8a67 100644
--- a/dump.c
+++ b/dump.c
@@ -414,10 +414,8 @@ sequence(pTHX_ register const OP *o)
     if (!o)
 	return;
 
-    op = newSVuv(PTR2UV(o));
-    key = SvPV_const(op, len);
-    if (hv_exists(Sequence, key, len))
-	return;
+    if (!Sequence)
+	Sequence = newHV();
 
     for (; o; o = o->op_next) {
 	op = newSVuv(PTR2UV(o));