[perl #123048] [JVM] some floats with many digits don't survive roundtrip with .perl

[Christian Bartolomaeus via RT]

The test in S02-names-vars/perl.t is passing now. I'm closing this ticket as 
'resolved'.