In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/6d37e916c310482d19ce4cd94848823cad43507a?hp=d94e901a397f05e1d0030c5cfd535ef97a6808b6>
- Log -----------------------------------------------------------------
commit 6d37e916c310482d19ce4cd94848823cad43507a
Author: Karl Williamson <k...@cpan.org>
Date: Sun Jul 15 11:09:16 2018 -0600
numeric.c: Silence compiler warning
It is always expecting non-NULL, so make it so
-----------------------------------------------------------------------
Summary of changes:
numeric.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/numeric.c b/numeric.c
index 46d8cd8ecf..b608615bc3 100644
--- a/numeric.c
+++ b/numeric.c
@@ -1334,7 +1334,7 @@ S_my_atof_infnan(pTHX_ const char* s, bool negative,
const char* send, NV* value
* is to try faking the input. We will try inf/-inf/nan
* as the most promising/portable input. */
{
- const char* fake = NULL;
+ const char* fake = "silence compiler warning";
char* endp;
NV nv;
#ifdef NV_INF
@@ -1347,7 +1347,7 @@ S_my_atof_infnan(pTHX_ const char* s, bool negative,
const char* send, NV* value
fake = "nan";
}
#endif
- assert(fake);
+ assert(strNE(fake, "silence compiler warning"));
nv = Perl_strtod(fake, &endp);
if (fake != endp) {
#ifdef NV_INF
--
Perl5 Master Repository
