Select Code to Download

use warnings;
use strict;
...
    if($_[0] - $ret) {warn "Loss of precision"} # LINE 21
    return $ret;
}

2.5
1.1

2.5
Loss of precision at double.pl line 21
1.10000000000000009