Help for this page

Select Code to Download


  1. or download this
    $SIG{FPE}=sub{...};
  2. or download this
        /*if (right == 0.0)
      DIE(aTHX_ "Illegal division by zero");*/
  3. or download this
    $ ./perl -e '$a=1.23/0.00;print "\$a=$a\n"'
$a=inf
  4. or download this
        if (right == 0.0)
        PUSHs(&PL_sv_undef);/*DIE(aTHX_ "Illegal division by zero");*/
    else
        PUSHn( left / right );
  5. or download this
    $ ./perl -e 'print "UNDEFINED\n" unless (defined(1.23/0.00))'
UNDEFINED