X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/f1c982a254f412a0b054cc9f1e2e9f51ef7dc696..86e39d7d2858df4e45eac192041d5cb3bd87000e:/numeric.c

diff --git a/numeric.c b/numeric.c
index eda05d9..e96252a 100644
--- a/numeric.c
+++ b/numeric.c
@@ -803,7 +803,7 @@ S_mulexp10(NV value, I32 exponent)
      * a hammer.  Therefore we need to catch potential overflows before
      * it's too late. */
 
-#if ((defined(VMS) && !defined(__IEEE_FP)) || defined(_UNICOS)) && defined(NV_MAX_10_EXP)
+#if ((defined(VMS) && !defined(_IEEE_FP)) || defined(_UNICOS)) && defined(NV_MAX_10_EXP)
     STMT_START {
 	const NV exp_v = log10(value);
 	if (exponent >= NV_MAX_10_EXP || exponent + exp_v >= NV_MAX_10_EXP)