sub IO::Select::trap::_trapped {
    my ($self, $h) = @_;
    if ((ref $h) =~ /$self->{traps}/i) {    
#        carp (ref $h)." is trapped.";
        return 1;
    } else {    
#        carp (ref $h)." is NOT trapped.";
        return 0;
    }
}