X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=warnings.h;h=3ed9ecf56d53106a82c1cb50826a42200dcd6f15;hb=e8163f9b21612cd7bfeb1e3e84bf7226ccb0475d;hp=8f891a751188eac1db237e3b51cb93981b8a962b;hpb=b88df9907a8d7b4fae1100629cc85633a901355e;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/warnings.h b/warnings.h
index 8f891a7..3ed9ecf 100644
--- a/warnings.h
+++ b/warnings.h
@@ -79,6 +79,7 @@
 /* Warnings Categories added in Perl 5.011 */
 
 #define WARN_IMPRECISION	46
+#define WARN_ILLEGALPROTO	47
 
 #define WARNsize		12
 #define WARN_ALLstring		"\125\125\125\125\125\125\125\125\125\125\125\125"
@@ -105,6 +106,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)             )