infnan: perldiag entries fixing, add "in pack" to one message.

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_pack.c b/pp_pack.c
index 0e5b8dd372..aa3e790db3 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2170,7 +2170,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
             const char c = TYPE_NO_MODIFIERS(datumtype);
             if (Perl_isinfnan(nv) && !strchr("fdFD", c)) {
                 if (c == 'w')
-                    Perl_croak(aTHX_ "Cannot compress %"NVgf, nv);
+                    Perl_croak(aTHX_ "Cannot compress %"NVgf" in pack", nv);
                 else
                     Perl_croak(aTHX_ "Cannot pack %"NVgf" with '%c'",
                                nv, (int) c);