Re: [PATCH] Add Locale::Maketext::Simple to the core

[p5sagit/p5-mst-13.2.git] / warnings.h

diff --git a/warnings.h b/warnings.h
index aa830c0..9c84c25 100644 (file)
--- a/warnings.h
+++ b/warnings.h
@@ -24,6 +24,9 @@
 #define specialWARN(x)         ((x) == pWARN_STD || (x) == pWARN_ALL ||        \
                                 (x) == pWARN_NONE)
 
+/* if PL_warnhook is set to this value, then warnings die */
+#define PERL_WARNHOOK_FATAL    (((SV*)0) + 1)
+
 /* Warnings Categories added in Perl 5.008 */
 
 #define WARN_ALL               0
@@ -89,8 +92,8 @@
 #define isWARNf_on(c,x)        (IsSet((U8 *)(c + 1), 2*(x)+1))
 
 #define DUP_WARNINGS(p)                \
-    specialWARN(p) ? (p)       \
-    : CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, char)
+    (STRLEN*)(specialWARN(p) ? (p)     \
+    : CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, char))
 
 #define ckWARN(w)              Perl_ckwarn(aTHX_ packWARN(w))
 #define ckWARN2(w1,w2)         Perl_ckwarn(aTHX_ packWARN2(w1,w2))