From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 14 Nov 2005 16:32:33 +0000 (+0000)
Subject: The warning "Field too wide in 'u' format in pack" was emitted even
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0fdc08b6b5f98f1985cdae23a9e282c1de90ad84;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;
 	    }