From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 16 Aug 2005 17:57:27 +0000 (+0000)
Subject: Fix for [perl #36853] -Dx can crash bleadperl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=724e67cb5119c18364c1131d2478435750263a24;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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));