if(
    do { my $w= 0; local($SIG{__WARN__})= sub { $w= 1 };
        0 == $x  &&  ! $w
    }
)