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

diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index a49d23a..d4d80a8 100644 (file)
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -550,17 +550,16 @@ the function's name in L<POSIX> for details.
 
 (F) You passed an invalid number (like an infinity or not-a-number) to C<chr>.
 
 
 (F) You passed an invalid number (like an infinity or not-a-number) to C<chr>.
 

-=item Cannot compress %f
+=item Cannot compress %f in pack

 
 

-(F) You tried converting an infinity or not-a-number to an
-unsigned character, which makes no sense.
+(F) You tried compressing an infinity or not-a-number as an unsigned
+integer with BER, which makes no sense.

 
 =item Cannot compress integer in pack
 
 (F) An argument to pack("w",...) was too large to compress.  The BER
 
 =item Cannot compress integer in pack
 
 (F) An argument to pack("w",...) was too large to compress.  The BER

-compressed integer format can only be used with positive integers, and you
-attempted to compress Infinity or a very large number (> 1e308).
-See L<perlfunc/pack>.
+compressed integer format can only be used with positive integers, and
+you attempted to a very large number (> 1e308).  See L<perlfunc/pack>.

 
 =item Cannot compress negative numbers in pack
 
 
 =item Cannot compress negative numbers in pack
 


@@ -586,7 +585,7 @@ either with open() or binmode().
 
 =item Cannot pack %f with '%c'
 
 
 =item Cannot pack %f with '%c'
 

-(F) You tried converting an infinity or not-a-number to a character,
+(F) You tried converting an infinity or not-a-number to an integer,

 which makes no sense.
 
 =item Cannot printf %f with '%c'
 which makes no sense.
 
 =item Cannot printf %f with '%c'

diff --git a/pp_pack.c b/pp_pack.c
index 0e5b8dd..aa3e790 100644 (file)
--- 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')
             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);
                 else
                     Perl_croak(aTHX_ "Cannot pack %"NVgf" with '%c'",
                                nv, (int) c);