sub isIntVal2 {
    my( $i )= @_;
    my $warn= 0;
    {
        local( $^W )= 1;
        # my $warn= 0;
        local( $SIG{__WARN__} )= sub { $warn++ };
        $i= 0+$i;
    }
    return  ! $warn  &&  int($i) == $i;
}