From: David Mitchell <davem@iabyn.com>
Date: Mon, 10 Dec 2012 16:28:19 +0000 (+0000)
Subject: fix warning in PmopSTASH_set()
X-Git-Tag: v5.17.7~109
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/01f449739adb09a21772a83e939e5c96152d636c

fix warning in PmopSTASH_set()

In the threaded version of PmopSTASH_set(), the assigned value is a
PADOFFSET, not a pointer; so use 0 rather than NULL for the default value.

This keeps clang happy.
---

diff --git a/op.h b/op.h
index c1800df..286b880 100644
--- 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)