This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix c++ compilation
authorJesse Luehrs <doy@tozt.net>
Tue, 26 Jun 2012 06:35:31 +0000 (01:35 -0500)
committerJesse Luehrs <doy@tozt.net>
Tue, 26 Jun 2012 06:35:31 +0000 (01:35 -0500)
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;
+        const char *standard = NULL, *local = NULL;
         bool use_standard_radix;
 
         standard = strchr(s, '.');