diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-07 19:36:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-07 19:36:16 +0000 |
| commit | 102380c26730aadf6ec74ff3f85a84d5b9a8706e (patch) | |
| tree | 27703c7e038dc8dd5db97679b613c2c61eb4cab8 /utils | |
| parent | 6ba90e15f42bb7931083ac52cc71aa835bee2067 (diff) | |
| download | perl-102380c26730aadf6ec74ff3f85a84d5b9a8706e.tar.gz | |
h2ph: the fp exponent does need to have an explicit sign.
p4raw-id: //depot/perl@17070
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/h2ph.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/h2ph.PL b/utils/h2ph.PL index 6bd41e994a..11a75c1dea 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 { |