This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
h2ph: the fp exponent does need to have an explicit sign.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 7 Jun 2002 19:36:16 +0000 (19:36 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 7 Jun 2002 19:36:16 +0000 (19:36 +0000)
p4raw-id: //depot/perl@17070

utils/h2ph.PL

index 6bd41e9..11a75c1 100644 (file)
@@ -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 {