This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f8b1478
)
Integrate (the numeric.c tweak):
author
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 18 Aug 2005 13:43:46 +0000
(16:43 +0300)
committer
Nicholas 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
patch
|
blob
|
blame
|
history
diff --git
a/numeric.c
b/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') {
- c
har *p = negative ? s-
1 : s;
+ c
onst char *p = negative ? s -
1 : s;
char *endp;
NV rslt;
rslt = strtod(p, &endp);