Re^2: Negative zero? There's gotta be a sprintf that undoes that, right?

This doesn't work for me, perl 5.8.6 on OS X, however with a little change it does:

for ( -0.1, -0.01, -0.001, -0.0001, -0.00001, -10, ) {
    my $num = sprintf "%0.1f", $_;
    $num = abs( $num ) if $num == 0;
    printf "%s --> %0.1f\n", $_, $num;
}
[download]

Comment on Re^2: Negative zero? There's gotta be a sprintf that undoes that, right? Download Code