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
(from parent 1:
7878705
)
fix c++ compilation
author
Jesse Luehrs
<doy@tozt.net>
Tue, 26 Jun 2012 06:35:31 +0000
(
01:35
-0500)
committer
Jesse Luehrs
<doy@tozt.net>
Tue, 26 Jun 2012 06:35:31 +0000
(
01:35
-0500)
numeric.c
patch
|
blob
|
blame
|
history
diff --git
a/numeric.c
b/numeric.c
index
3eb8a0e
..
74f0903
100644
(file)
--- a/
numeric.c
+++ b/
numeric.c
@@
-848,7
+848,7
@@
Perl_my_atof(pTHX_ const char* s)
PERL_ARGS_ASSERT_MY_ATOF;
if (PL_numeric_local && PL_numeric_radix_sv && IN_SOME_LOCALE_FORM) {
- char *standard = NULL, *local = NULL;
+ c
onst c
har *standard = NULL, *local = NULL;
bool use_standard_radix;
standard = strchr(s, '.');