diff --git a/lib/PBot/Core.pm b/lib/PBot/Core.pm index c97e7ea7..6eaf6f54 100644 --- a/lib/PBot/Core.pm +++ b/lib/PBot/Core.pm @@ -248,10 +248,12 @@ sub connect { $self->{logger}->log("Connecting to $server:$port\n"); if ($self->{conn}) { - $self->{logger}->log("Error: already connected to $server:$port!\n"); + $self->{logger}->log("Error: already connected to $self->{server}.\n"); return; } + $self->{server} = "$server:$port"; + for (my $attempt = 0; $attempt < $retries; $attempt++) { my %config = ( Nick => $self->{registry}->get_value('irc', 'randomize_nick') ? $self->random_nick : $self->{registry}->get_value('irc', 'botnick'), diff --git a/lib/PBot/VERSION.pm b/lib/PBot/VERSION.pm index 4683c195..bf1f228b 100644 --- a/lib/PBot/VERSION.pm +++ b/lib/PBot/VERSION.pm @@ -25,7 +25,7 @@ use PBot::Imports; # These are set by the /misc/update_version script use constant { BUILD_NAME => "PBot", - BUILD_REVISION => 4558, + BUILD_REVISION => 4559, BUILD_DATE => "2022-07-10", };