diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-02-17 22:42:03 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-02-17 22:56:25 -0700 |
| commit | 8457b38f6553b1ed5f485478160b745dfe1b7fa9 (patch) | |
| tree | 5fdbad50c5811e449cd94a1ede8f7bca9d5f22ed /warnings.h | |
| parent | 3a3294736cca38f33952338fa20bc02cffd21550 (diff) | |
| download | perl-8457b38f6553b1ed5f485478160b745dfe1b7fa9.tar.gz | |
Subclass utf8 warnings so can turn off individually
Diffstat (limited to 'warnings.h')
| -rw-r--r-- | warnings.h | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/warnings.h b/warnings.h index d8793d12ff..39ebe6a78c 100644 --- a/warnings.h +++ b/warnings.h @@ -81,9 +81,15 @@ #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) |