In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/64332b6b34a2fb241657f12a8a3fe19b7a4d24dd?hp=df71d98f99064b8112949a5b051443ab812b2911>
- Log ----------------------------------------------------------------- commit 64332b6b34a2fb241657f12a8a3fe19b7a4d24dd Author: Nicholas Clark <[email protected]> Date: Mon Oct 12 15:28:29 2009 +0100 In uni_to_bytes(), fix ckWARN() anomaly. ----------------------------------------------------------------------- Summary of changes: pp_pack.c | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/pp_pack.c b/pp_pack.c index 72a9666..5933fd5 100644 --- a/pp_pack.c +++ b/pp_pack.c @@ -678,7 +678,8 @@ uni_to_bytes(pTHX_ const char **s, const char *end, const char *buf, int buf_len } if (from > end) from = end; } - if ((bad & 2) && ckWARN(WARN_UNPACK)) + if ((bad & 2) && ((datumtype & TYPE_IS_PACK) + ? ckWARN(WARN_PACK) : ckWARN(WARN_UNPACK))) Perl_warner(aTHX_ packWARN(datumtype & TYPE_IS_PACK ? WARN_PACK : WARN_UNPACK), "Character(s) in '%c' format wrapped in %s", -- Perl5 Master Repository
