Eu tenho um programa em Perl que funciona com probabilidades que ocasionalmente podem ser muito pequenas. Por causa do erro de arredondamento, às vezes uma das probabilidades é zero. Gostaria de verificar o seguinte:

use constant TINY_FLOAT => 1e-200;
my $prob = calculate_prob();
if ( $prob == 0 ) {
    $prob = TINY_FLOAT;
}

Isso funciona bem, mas na verdade vejo o Perl produzindo números menores que 1e-200 (acabei de ver um 8.14e-314 voar). Para meu aplicativo, posso alterar o calculate_prob () para que ele retorne o máximo de TINY_FLOAT e a probabilidade real, mas isso me deixou curioso sobre como os números de ponto flutuante são manipulados no Perl.

Qual é o menor valor de ponto flutuante positivo em Perl? É dependente da plataforma? Se assim for, há um programa rápido que eu possa usar para descobrir isso na minha máquina?