IRC: do not debug PONG events

This commit is contained in:
Pragmatic Software 2023-02-13 16:06:24 -08:00
parent 7da7883d9d
commit 21d06bc149
2 changed files with 11 additions and 7 deletions

View File

@ -508,11 +508,13 @@ sub handler {
croak "Not enough arguments to handler()";
}
print STDERR "--- Trying to handle event '$ev'.\n" if $self->{_debug};
unless ($ev eq 'pong') {
print STDERR "--- Trying to handle event '$ev'.\n" if $self->{_debug};
if ($self->{_debug} > 1) {
use Data::Dumper;
print STDERR "ev: ", Dumper($ev), "\nevent: ", Dumper($event), "\n";
if ($self->{_debug} > 1) {
use Data::Dumper;
print STDERR "ev: ", Dumper($ev), "\nevent: ", Dumper($event), "\n";
}
}
my $handler = undef;
@ -535,7 +537,9 @@ sub handler {
confess "Bad parameter passed to handler(): rp=$rp";
}
print STDERR "--- Handler for '$ev' called.\n" if $self->{_debug};
unless ($ev eq 'pong') {
print STDERR "--- Handler for '$ev' called.\n" if $self->{_debug};
}
return 1;
}

View File

@ -25,8 +25,8 @@ use PBot::Imports;
# These are set by the /misc/update_version script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 4618,
BUILD_DATE => "2023-02-09",
BUILD_REVISION => 4619,
BUILD_DATE => "2023-02-13",
};
sub initialize {}