X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/98fe6610b077571e54be1d655e66e1ad657a8910..83fe8199d6a7b634f6e1ad1413c2d33afffa8ba2:/warnings.h diff --git a/warnings.h b/warnings.h index 56b3079..39ebe6a 100644 --- a/warnings.h +++ b/warnings.h @@ -1,8 +1,8 @@ /* -*- buffer-read-only: t -*- !!!!!!! DO NOT EDIT THIS FILE !!!!!!! - This file is built by warnings.pl + This file is built by regen/warnings.pl. Any changes made here will be lost! -*/ + */ #define Off(x) ((x) / 8) @@ -79,10 +79,17 @@ /* 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" -#define WARN_NONEstring "\0\0\0\0\0\0\0\0\0\0\0\0" +/* Warnings Categories added in Perl 5.013 */ + +#define WARN_NON_UNICODE 48 +#define WARN_NONCHAR 49 +#define WARN_SURROGATE 50 + +#define WARNsize 13 +#define WARN_ALLstring "\125\125\125\125\125\125\125\125\125\125\125\125\125" +#define WARN_NONEstring "\0\0\0\0\0\0\0\0\0\0\0\0\0" #define isLEXWARN_on (PL_curcop->cop_warnings != pWARN_STD) #define isLEXWARN_off (PL_curcop->cop_warnings == pWARN_STD) @@ -126,4 +133,5 @@ isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(x)))) /* end of file warnings.h */ + /* ex: set ro: */