Help for this page

Select Code to Download


  1. or download this
    if(  SvIOK($x)  ?  0 == $x  :  '0' eq $x  )
  2. or download this
    if(  do{ no warnings; 0==$x }  &&  SvIOK($x)  )
  3. or download this
    if(     (  SvIOK($x)  ||  looks_like_a_number($x)  )
    &&  0 == $x
)
  4. or download this
    if(
    do { my $w= 0; local($SIG{__WARN__})= sub { $w= 1 };
        0 == $x  &&  ! $w
    }
)