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

The PL_op_sequence global hash wasn't initialized

p4raw-id: //depot/perl@25296

diff --git a/dump.c b/dump.c
index 8205132..9dc7db8 100644 (file)
--- 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));