diff options
author | Dave Mitchell <davem@fdisolutions.com> | 2005-04-19 23:31:52 +0000 |
---|---|---|
committer | Dave Mitchell <davem@fdisolutions.com> | 2005-04-19 23:31:52 +0000 |
commit | 4d4948808560f73c9be361930114c89552276998 (patch) | |
tree | 90f3ed9d4e4359c14773f9923785ba24c7bbcd21 | |
parent | d2e562908ab20a1b4a30495729ed42b9cea03ed7 (diff) | |
download | perl-4d4948808560f73c9be361930114c89552276998.tar.gz |
DEBUG_LEAKING_SCALARS could use the value of a freed PL_op
p4raw-id: //depot/perl@24255
-rw-r--r-- | op.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -313,6 +313,10 @@ Perl_op_free(pTHX_ OP *o) op_clear(o); FreeOp(o); +#ifdef DEBUG_LEAKING_SCALARS + if (PL_op == o) + PL_op = Nullop; +#endif } void |