The warning "Field too wide in 'u' format in pack" was emitted even

when pack warnings were not enabled

p4raw-id: //depot/perl@26130

diff --git a/pp_pack.c b/pp_pack.c
index 89b1a1c..ca2795d 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -3547,7 +3547,8 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
            if (len <= 2) len = 45;
            else len = len / 3 * 3;
            if (len >= 64) {
-               Perl_warner(aTHX_ packWARN(WARN_PACK),
+               if (ckWARN(WARN_PACK))
+                   Perl_warner(aTHX_ packWARN(WARN_PACK),
                            "Field too wide in 'u' format in pack");
                len = 63;
            }