diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-07-18 06:21:54 +0100 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-07-18 06:38:57 +0000 |
| commit | 96a05aee450e24b2d5686c50a7e95ce03114af79 (patch) | |
| tree | 84f7a79bd85002a519edaef881c8f88f1c17b191 /numeric.c | |
| parent | 91e0c79e7a2eeb8d9021015c6615d10bc39bc7ba (diff) | |
| download | perl-96a05aee450e24b2d5686c50a7e95ce03114af79.tar.gz | |
Re: [ID 20010716.005] numeric conversions in 5.7.[12] changed from perl5.6.1 (leading whitespace)
Message-Id: <200107180421.f6I4Ltc00987@crypt0.demon.co.uk>
p4raw-id: //depot/perl@11403
Diffstat (limited to 'numeric.c')
| -rw-r--r-- | numeric.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -629,6 +629,10 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value) I32 ipart = 0; /* index into part[] */ I32 offcount; /* number of digits in least significant part */ + /* leading whitespace */ + while (isSPACE(*s)) + ++s; + /* sign */ switch (*s) { case '-': |