summaryrefslogtreecommitdiff
path: root/numeric.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2018-07-15 11:09:16 -0600
committerKarl Williamson <khw@cpan.org>2018-07-15 13:10:55 -0600
commit6d37e916c310482d19ce4cd94848823cad43507a (patch)
tree505d5c97c2f2ce9f17a94d298c785af5d0a9b7ea /numeric.c
parentd94e901a397f05e1d0030c5cfd535ef97a6808b6 (diff)
downloadperl-6d37e916c310482d19ce4cd94848823cad43507a.tar.gz
numeric.c: Silence compiler warning
It is always expecting non-NULL, so make it so
Diffstat (limited to 'numeric.c')
-rw-r--r--numeric.c4
1 files 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