X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=warnings.h;h=56b307912dd28c289325e4474f626a37323a5b0a;hb=c22d4cd038b9aba734088cd649559b23b16fc394;hp=1c36628efff89e399d00d3cb09afef22c27fa63e;hpb=594cd643de6a38f85185ea4c238c0784e3cf076a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/warnings.h b/warnings.h
index 1c36628..56b3079 100644
--- a/warnings.h
+++ b/warnings.h
@@ -76,9 +76,9 @@
 #define WARN_UTF8		44
 #define WARN_VOID		45
 
-/* Warnings Categories added in Perl 5.009 */
+/* Warnings Categories added in Perl 5.011 */
 
-#define WARN_ASSERTIONS		46
+#define WARN_IMPRECISION	46
 
 #define WARNsize		12
 #define WARN_ALLstring		"\125\125\125\125\125\125\125\125\125\125\125\125"
@@ -105,6 +105,8 @@
 #define ckWARN3_d(w1,w2,w3)	Perl_ckwarn_d(aTHX_ packWARN3(w1,w2,w3))
 #define ckWARN4_d(w1,w2,w3,w4)	Perl_ckwarn_d(aTHX_ packWARN4(w1,w2,w3,w4))
 
+#define WARNshift		8
+
 #define packWARN(a)		(a                                      )
 #define packWARN2(a,b)		((a) | ((b)<<8)                         )
 #define packWARN3(a,b,c)	((a) | ((b)<<8) | ((c)<<16)             )