perldelta: Blanket entry for memory leaks

[perl5.git] / op.h

diff --git a/op.h b/op.h
index c1800df..286b880 100644 (file)
--- a/op.h
+++ b/op.h
@@ -457,7 +457,7 @@ struct pmop {
 #  define PmopSTASH_set(o,hv)  \
        (assert_((o)->op_pmflags & PMf_ONCE)                            \
         (o)->op_pmstashstartu.op_pmstashoff =                          \
-           (hv) ? alloccopstash(hv) : NULL)
+           (hv) ? alloccopstash(hv) : 0)
 #else
 #  define PmopSTASH(o)                                                 \
     (((o)->op_pmflags & PMf_ONCE) ? (o)->op_pmstashstartu.op_pmstash : NULL)