##
/*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