From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 7 Jun 2002 19:36:16 +0000 (+0000)
Subject: h2ph: the fp exponent does need to have an explicit sign.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=102380c26730aadf6ec74ff3f85a84d5b9a8706e;p=p5sagit%2Fp5-mst-13.2.git

h2ph: the fp exponent does need to have an explicit sign.

p4raw-id: //depot/perl@17070
---

diff --git a/utils/h2ph.PL b/utils/h2ph.PL
index 6bd41e9..11a75c1 100644
--- a/utils/h2ph.PL
+++ b/utils/h2ph.PL
@@ -299,7 +299,7 @@ sub expr {
 	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/^(-?\d+\.\d+E[-+]?\d+)F?//i	&& do {$new .= $1; next;};
 	s/^(\d+)\s*[LU]*//i	&& do {$new .= $1; next;};
 	s/^("(\\"|[^"])*")//	&& do {$new .= $1; next;};
 	s/^'((\\"|[^"])*)'//	&& do {