diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-02 22:28:27 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-05-02 22:28:27 +0000 |
| commit | 428eeaed0f30350713bf53c6882f16898acb42bb (patch) | |
| tree | 86f7d9e0ebe924702dfc3e1a374832ca3ba5a67d /ext | |
| parent | dd1ab7d3062410213ab87960b793b6fbffcd2650 (diff) | |
| download | perl-428eeaed0f30350713bf53c6882f16898acb42bb.tar.gz | |
Be more forgiving in POSIX about HUGE_VALL.
p4raw-id: //depot/cfgperl@6054
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/POSIX/POSIX.xs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs index 9f1e8555fa..b33e9619a4 100644 --- a/ext/POSIX/POSIX.xs +++ b/ext/POSIX/POSIX.xs @@ -1517,14 +1517,10 @@ constant(char *name, int arg) break; case 'H': if (strEQ(name, "HUGE_VAL")) -#ifdef USE_LONG_DOUBLE +#if defined(USE_LONG_DOUBLE) && defined(HUGE_VALL) /* HUGE_VALL is admittedly non-POSIX but if are using long doubles * we might as well use long doubles. --jhi */ -# ifdef HUGE_VALL return HUGE_VALL; -# else - goto not_there; -# endif #endif #ifdef HUGE_VAL return HUGE_VAL; |