From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Jun 2002 23:14:10 +0000 (+0000)
Subject: h2ph: Solaris has LDBL_EPSILON 1.0842021724855044340075E-19L
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd3f0affe9994fa8ef40841cc5ca77d231c32c0c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 {