Lines 71-77
sub accounts {
Link Here
|
71 |
sub find_service { |
71 |
sub find_service { |
72 |
my ($self, $sockaddr, $port, $proto) = @_; |
72 |
my ($self, $sockaddr, $port, $proto) = @_; |
73 |
my $portstr; |
73 |
my $portstr; |
74 |
foreach my $addr ('', '*:', "$sockaddr:") { |
74 |
foreach my $addr ('', '*:', "$sockaddr:", "[$sockaddr]:") { |
75 |
$portstr = sprintf("%s%s/%s", $addr, $port, lc $proto); |
75 |
$portstr = sprintf("%s%s/%s", $addr, $port, lc $proto); |
76 |
Sys::Syslog::syslog("LOG_DEBUG", "Configuration::find_service: Trying $portstr"); |
76 |
Sys::Syslog::syslog("LOG_DEBUG", "Configuration::find_service: Trying $portstr"); |
77 |
last if (exists(($self->{listeners})->{$portstr})); |
77 |
last if (exists(($self->{listeners})->{$portstr})); |
78 |
- |
|
|