X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/f789f6a4bdb5024b90845e6af62510d7f23eea5d..c62c138b082a6c0f855caab461b44983c08f46ca:/handy.h

diff --git a/handy.h b/handy.h
index d345abe..78e5284 100644
--- a/handy.h
+++ b/handy.h
@@ -1780,6 +1780,12 @@ void Perl_mem_log_del_sv(const SV *sv, const char *filename, const int linenumbe
 #define PoisonFree(d,n,t)	PoisonWith(d,n,t,0xEF)
 #define Poison(d,n,t)		PoisonFree(d,n,t)
 
+#ifdef PERL_POISON
+#  define PERL_POISON_EXPR(x) x
+#else
+#  define PERL_POISON_EXPR(x)
+#endif
+
 #ifdef USE_STRUCT_COPY
 #define StructCopy(s,d,t) (*((t*)(d)) = *((t*)(s)))
 #else