diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-07-17 19:02:10 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-07-17 19:02:10 +0000 |
| commit | ce44635a98097a8f9f8acc0fc8393ebd5524dbdf (patch) | |
| tree | 74c83e8100f34dc6f34953480c06a3f0f6b2769a /pp_hot.c | |
| parent | ace7757b19d04728dc05eefe7b371b14d8ce29dd (diff) | |
| download | perl-ce44635a98097a8f9f8acc0fc8393ebd5524dbdf.tar.gz | |
change #25129 was overzealous in delaying the call to ckWARN
p4raw-link: @25129 on //depot/perl: 041457d90dbb6fb79a72c7a8462f01423f2daa09
p4raw-id: //depot/perl@25159
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1611,8 +1611,8 @@ Perl_do_readline(pTHX) const STRLEN len = SvCUR(sv) - offset; const U8 *f; - if (!Perl_is_utf8_string_loc(aTHX_ s, len, &f) - && ckWARN(WARN_UTF8)) + if (ckWARN(WARN_UTF8) && + !Perl_is_utf8_string_loc(aTHX_ s, len, &f)) /* Emulate :encoding(utf8) warning in the same case. */ Perl_warner(aTHX_ packWARN(WARN_UTF8), "utf8 \"\\x%02X\" does not map to Unicode", |