2 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
sub _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;
}
}
open (STDERR, "> error.log") or die "Error: couldn't redirect STDERR: $!\n";
1
2
3
4
5
6
7
8
9
10
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;
}
}
2 Einträge, 1 Seite |