diff --git a/C4/SIP/Sip/Configuration.pm b/C4/SIP/Sip/Configuration.pm index 9a281dd87a..a58446912a 100644 --- a/C4/SIP/Sip/Configuration.pm +++ b/C4/SIP/Sip/Configuration.pm @@ -71,7 +71,7 @@ sub accounts { sub find_service { my ($self, $sockaddr, $port, $proto) = @_; my $portstr; - foreach my $addr ('', '*:', "$sockaddr:") { + foreach my $addr ('', '*:', "$sockaddr:", "[$sockaddr]:") { $portstr = sprintf("%s%s/%s", $addr, $port, lc $proto); Sys::Syslog::syslog("LOG_DEBUG", "Configuration::find_service: Trying $portstr"); last if (exists(($self->{listeners})->{$portstr}));