Select Code to Download

1..50
ok 1
...
not ok 9 # 10.0099999999999997868371792719699
ok 10
ok 11

$a = 0.1; "$a";
print $a eq "0.1"     ? "ok 5\n"  : "not ok 5 # $a\n";

#   Failed test '  <SOFTPKG>'
#   at t/basic.t line 83.
...
[...]

#     doesn't match '(?m-xis:^<SOFTPKG NAME="Big-Dummy" VERSION="0.01"
+>)'

./perl -e "$a=> perl -e '$a = 0.1; print "$a\n";' 
0.1

> ./perl -e '$a = 0.1; print "$a\n";' 
0.100000000000000005551115123125783