From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Thu, 7 Jun 2001 10:25:40 +0000 (+0000)
Subject: MULTIPLICITY fix for S_grok_number(), also a few gratuitious trailing
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6fa402ec5b578488e91e8f7d99060bcd035f4979;p=p5sagit%2Fp5-mst-13.2.git

MULTIPLICITY fix for S_grok_number(), also a few gratuitious trailing
whitespace tweaks.
Still coredumps in pragma/overload.t - what a nice hard fail that is...

p4raw-id: //depot/perlio@10466
---

diff --git a/sv.c b/sv.c
index f53a35a..76481dc 100644
--- a/sv.c
+++ b/sv.c
@@ -1495,7 +1495,7 @@ S_not_a_number(pTHX_ SV *sv)
 #define IS_NUMBER_INFINITY	      0x10 /* this is big */
 
 static int
-S_grok_number(const char *pv, STRLEN len, UV *valuep)
+S_grok_number(pTHX_ const char *pv, STRLEN len, UV *valuep)
 {
     const char *s = pv;
     const char *send = pv + len;
@@ -2510,7 +2510,7 @@ Perl_sv_2nv(pTHX_ register SV *sv)
             } else {
                 SvNOKp_on(sv);
                 SvIOKp_on(sv);
-                
+
                 if (numtype & IS_NUMBER_NEG) {
                     SvIVX(sv) = -(IV)value;
                 } else if (value <= (UV)IV_MAX) {
@@ -2539,7 +2539,7 @@ Perl_sv_2nv(pTHX_ register SV *sv)
                     } else {
                         /* between IV_MAX and NV(UV_MAX).
                            Could be slightly > UV_MAX */
-                        
+
                         if (numtype & IS_NUMBER_NOT_INT) {
                             /* UV and NV both imprecise.  */
                         } else {
@@ -2620,7 +2620,7 @@ S_asUV(pTHX_ SV *sv)
     if ((numtype & (IS_NUMBER_IN_UV | IS_NUMBER_NOT_INT))
 	== IS_NUMBER_IN_UV) {
 	/* It's defintately an integer */
-	if (!(numtype & IS_NUMBER_NEG)) 
+	if (!(numtype & IS_NUMBER_NEG))
 	    return value;
     }
     if (!numtype) {
@@ -4112,7 +4112,7 @@ Perl_sv_magic(pTHX_ register SV *sv, SV *obj, int how, const char *name, I32 nam
 	    && how != PERL_MAGIC_regex_global
 	    && how != PERL_MAGIC_bm
 	    && how != PERL_MAGIC_fm
-	    && how != PERL_MAGIC_sv 
+	    && how != PERL_MAGIC_sv
 	   )
 	{
 	    Perl_croak(aTHX_ PL_no_modify);