Select Code to Download

$SIG{FPE}=sub{...};

    /*if (right == 0.0)
      DIE(aTHX_ "Illegal division by zero");*/

$ ./perl -e '$a=1.23/0.00;print "\$a=$a\n"'
$a=inf

    if (right == 0.0)
        PUSHs(&PL_sv_undef);/*DIE(aTHX_ "Illegal division by zero");*/
    else
        PUSHn( left / right );

$ ./perl -e 'print "UNDEFINED\n" unless (defined(1.23/0.00))'
UNDEFINED