In perl.git, the branch smoke-me/jkeenan/134371-gconvert has been updated <https://perl5.git.perl.org/perl.git/commitdiff/97f423f1139d05fa2a8a7c2331c0dea2fe8cb1c6?hp=cbe855980207aeda6b23f7e7e29dcbfaacd0bee1>
- Log ----------------------------------------------------------------- commit 97f423f1139d05fa2a8a7c2331c0dea2fe8cb1c6 Author: Andy Dougherty <[email protected]> Date: Mon Aug 19 12:12:31 2019 -0400 Further Configure gconvert probe cleanups for C++. As part of debugging [perl #134375] and [perl #134371], try to eliminate warnings thrown by clang++. ----------------------------------------------------------------------- Summary of changes: Configure | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Configure b/Configure index f75ef25f21..b89d34dbb2 100755 --- a/Configure +++ b/Configure @@ -10386,15 +10386,15 @@ esac $cat >>try.c <<EOP #ifdef TRY_gconvert #define Gconvert(x,n,t,b) gconvert((x),(n),(t),(b)) -char *myname = "gconvert"; +const char *myname = "gconvert"; #endif #ifdef TRY_gcvt #define Gconvert(x,n,t,b) gcvt((x),(n),(b)) -char *myname = "gcvt"; +const char *myname = "gcvt"; #endif #ifdef TRY_qgcvt #define Gconvert(x,n,t,b) qgcvt((x),(n),(b)) -char *myname = "qgcvt"; +const char *myname = "qgcvt"; #define DOUBLETYPE long double #endif #ifdef TRY_sprintf @@ -10407,7 +10407,7 @@ char *myname = "qgcvt"; #else #define Gconvert(x,n,t,b) sprintf((b),"%.*g",(n),(x)) #endif -char *myname = "sprintf"; +const char *myname = "sprintf"; #endif #ifndef DOUBLETYPE @@ -10426,7 +10426,7 @@ char *myname = "sprintf"; #endif #include <string.h> -void checkit(char *expect, char *got) +void checkit(const char *expect, char *got) { if (strcmp(expect, got)) { printf("%s oddity: Expected %s, got %s\n", -- Perl5 Master Repository
