perl 5.002gamma: hints/sco.sh

[p5sagit/p5-mst-13.2.git] / dump.c

diff --git a/dump.c b/dump.c
index e461abf..19300e1 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -126,7 +126,7 @@ register OP *op;
        else
            dump("TARG = %d\n", op->op_targ);
     }
-#ifdef NOTDEF
+#ifdef DUMPADDR
     dump("ADDR = 0x%lx => 0x%lx\n",op, op->op_next);
 #endif
     if (op->op_flags) {
@@ -185,7 +185,9 @@ register OP *op;
                 op->op_type == OP_AELEM ||
                 op->op_type == OP_HELEM )
        {
-           if (op->op_private & OPpDEREF_DB)
+           if (op->op_private & OPpENTERSUB_AMPER)
+               (void)strcat(buf,"AMPER,");
+           if (op->op_private & OPpENTERSUB_DB)
                (void)strcat(buf,"DB,");
            if (op->op_private & OPpDEREF_AV)
                (void)strcat(buf,"AV,");