[perl #815] [PATCH] fix assembler's floating-point constant RE

[Sean O'Rourke]

# New Ticket Created by  "Sean O'Rourke" 
# Please include the string:  [perl #815]
# in the subject line of all future correspondence about this issue. 
# <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=815 >


Should handle things like "1e8", but it now requires a decimal point.

/s


-- attachment  1 ------------------------------------------------------
url: http://bugs6.perl.org/rt2/attach/3822/3548/fe63c3/assembler.patch


Index: assemble.pl
===================================================================
RCS file: /cvs/public/parrot/assemble.pl,v
retrieving revision 1.77
diff -u -r1.77 assemble.pl
--- assemble.pl 4 Jul 2002 18:36:17 -0000       1.77
+++ assemble.pl 15 Jul 2002 02:16:47 -0000
@@ -714,7 +714,8 @@
   my $bin_re = qr([-+]?0[bB][01]+);
   my $dec_re = qr([-+]?\d+);
   my $hex_re = qr([-+]?0[xX][0-9a-fA-F]+);
-  my $flt_re = qr([-+]?\d+\.\d+([eE][-+]?\d+)?);
+  my $flt_re = qr{[-+]?\d+ (?:(?:\.\d+(?:[eE][-+]?\d+)?)
+                               | (?:[Ee][+-]?\d+))}x;
   my $str_re = qr(\"(?:[^\\\"]*(?:\\.[^\\\"]*)*)\" |
                   \'(?:[^\\\']*(?:\\.[^\\\']*)*)\'
                  )x;