Select Code to Download

#   Failed test at t/format_pref.t line 54.
#          got: '1000e-36'
#     expected: '1e-33'

    my $e    = floor( log($num) / log(1000) );