diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-01-09 18:39:05 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-01-09 19:29:03 -0700 |
| commit | ae0e24b1414c1667c7d190ec642617498271eeec (patch) | |
| tree | c6ad19fb86e335606b6b7a2fc8a889c2169a0798 /utf8.c | |
| parent | 684f3160b835198ccd5c275c05ba2e0976054561 (diff) | |
| download | perl-ae0e24b1414c1667c7d190ec642617498271eeec.tar.gz | |
utf8.c: Change to warn_d in two places
The routines that these call used the warn_d forms; so these should as well.
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -766,13 +766,14 @@ returned and retlen is set, if possible, to -1. =cut */ + UV Perl_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN *retlen) { PERL_ARGS_ASSERT_UTF8_TO_UVCHR; return utf8n_to_uvchr(s, UTF8_MAXBYTES, retlen, - ckWARN(WARN_UTF8) ? 0 : UTF8_ALLOW_ANY); + ckWARN_d(WARN_UTF8) ? 0 : UTF8_ALLOW_ANY); } /* @@ -798,7 +799,7 @@ Perl_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen) /* Call the low level routine asking for checks */ return Perl_utf8n_to_uvuni(aTHX_ s, UTF8_MAXBYTES, retlen, - ckWARN(WARN_UTF8) ? 0 : UTF8_ALLOW_ANY); + ckWARN_d(WARN_UTF8) ? 0 : UTF8_ALLOW_ANY); } /* |