diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-07 23:14:10 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-07 23:14:10 +0000 |
| commit | fd3f0affe9994fa8ef40841cc5ca77d231c32c0c (patch) | |
| tree | 18408e6c5e84e7a4a4708d08af71bee12169541e /utils | |
| parent | 30111f4851efef8c1a7ef4e80201a911439242d1 (diff) | |
| download | perl-fd3f0affe9994fa8ef40841cc5ca77d231c32c0c.tar.gz | |
h2ph: Solaris has LDBL_EPSILON 1.0842021724855044340075E-19L
(note the final L) for ia32 and ia64 long doubles.
p4raw-id: //depot/perl@17077
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2ph.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 11a75c1dea..b0b906d1a1 100644 --- a/utils/h2ph.PL +++ b/utils/h2ph.PL @@ -298,8 +298,8 @@ sub expr { s/^\&\&// && do { $new .= " &&"; next;}; # handle && operator s/^\&([\(a-z\)]+)/$1/i; # hack for things that take the address of s/^(\s+)// && do {$new .= ' '; next;}; - s/^(0X[0-9A-F]+)[UL]*//i && do {$new .= lc($1); next;}; - s/^(-?\d+\.\d+E[-+]?\d+)F?//i && do {$new .= $1; next;}; + s/^(0X[0-9A-F]+)[UL]*//i && do {$new .= lc($1); next;}; + s/^(-?\d+\.\d+E[-+]?\d+)[FL]?//i && do {$new .= $1; next;}; s/^(\d+)\s*[LU]*//i && do {$new .= $1; next;}; s/^("(\\"|[^"])*")// && do {$new .= $1; next;}; s/^'((\\"|[^"])*)'// && do { |