diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-05-27 00:10:57 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-05-27 00:50:03 -0700 |
| commit | 3036c853dc4dc12432488679779401c20ddfb64b (patch) | |
| tree | 3e7e06d1cdbc59066b7e4bbbea76e7a5a9cc937a /toke.c | |
| parent | 9a5996c94d9e3da7ea3e0b7e901f86a53b68be2f (diff) | |
| download | perl-3036c853dc4dc12432488679779401c20ddfb64b.tar.gz | |
Turn \N{ } deprecation warnings on by default
All deprecation warnings are supposed to be on by default, but
these two were not.
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -2728,12 +2728,12 @@ S_get_and_check_backslash_N_name(pTHX_ const char* s, const char* const e) if (! isCHARNAME_CONT(*s)) { goto bad_charname; } - if (*s == ' ' && *(s-1) == ' ' && ckWARN(WARN_DEPRECATED)) { + if (*s == ' ' && *(s-1) == ' ' && ckWARN_d(WARN_DEPRECATED)) { Perl_warn(aTHX_ "A sequence of multiple spaces in a charnames alias definition is deprecated"); } s++; } - if (*(s-1) == ' ' && ckWARN(WARN_DEPRECATED)) { + if (*(s-1) == ' ' && ckWARN_d(WARN_DEPRECATED)) { Perl_warn(aTHX_ "Trailing white-space in a charnames alias definition is deprecated"); } } @@ -2771,7 +2771,8 @@ S_get_and_check_backslash_N_name(pTHX_ const char* s, const char* const e) if (! isCHARNAME_CONT(*s)) { goto bad_charname; } - if (*s == ' ' && *(s-1) == ' ' && ckWARN(WARN_DEPRECATED)) { + if (*s == ' ' && *(s-1) == ' ' + && ckWARN_d(WARN_DEPRECATED)) { Perl_warn(aTHX_ "A sequence of multiple spaces in a charnames alias definition is deprecated"); } s++; @@ -2798,7 +2799,7 @@ S_get_and_check_backslash_N_name(pTHX_ const char* s, const char* const e) s += UTF8SKIP(s); } } - if (*(s-1) == ' ' && ckWARN(WARN_DEPRECATED)) { + if (*(s-1) == ' ' && ckWARN_d(WARN_DEPRECATED)) { Perl_warn(aTHX_ "Trailing white-space in a charnames alias definition is deprecated"); } } |