This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate (the numeric.c tweak):
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 18 Aug 2005 13:43:46 +0000 (16:43 +0300)
committerNicholas Clark <nick@ccl4.org>
Wed, 28 Sep 2005 20:54:51 +0000 (20:54 +0000)
[ 25304]
Subject: [PATCH] 5.9.x (and 5.8.x): Symbian update
Message-ID: <B356D8F434D20B40A8CEDAEC305A1F24E7A41B@esebe105.NOE.Nokia.com>
p4raw-link: @25304 on //depot/perl: c042ae3a74be2a1c6b85173b59f6a608815afef8

p4raw-id: //depot/maint-5.8/perl@25643
p4raw-integrated: from //depot/perl@25642 'merge in' numeric.c
(@25299..)

numeric.c

index 2582a1e..7aba0bb 100644 (file)
--- a/numeric.c
+++ b/numeric.c
@@ -896,7 +896,7 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value)
 
 #ifdef HAS_STRTOD
     if (*s == 'n' || *s == 'N' || *s == 'i' || *s == 'I') {
-        char *p = negative ? s-1 : s;
+        const char *p = negative ? s - 1 : s;
         char *endp;
         NV rslt;
         rslt = strtod(p, &endp);