h2ph: Solaris has LDBL_EPSILON 1.0842021724855044340075E-19L

(note the final L) for ia32 and ia64 long doubles.

p4raw-id: //depot/perl@17077

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 11a75c1..b0b906d 100644 (file)
--- 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 {