PERL_EFF_ACCESS_[RWX]_OK can go.

[perl5.git] / dump.c

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