[svn:parrot] r28106 - trunk/languages/perl6/src/parser

Author: pmichaud
Date: Thu Jun  5 11:10:30 2008
New Revision: 28106

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo]:
* Avoid losing precision in floating point constants.


Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm (original)
+++ trunk/languages/perl6/src/parser/actions.pm Thu Jun  5 11:10:30 2008
@@ -1689,7 +1689,7 @@
 
 
 method dec_number($/) {
-    make PAST::Val.new( :value( +$/ ), :returns('Num'), :node( $/ ) );
+    make PAST::Val.new( :value( ~$/ ), :returns('Num'), :node( $/ ) );
 }
 
 method radint($/, $key) {