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 (file)
--- 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 {