… | |
… | |
314 | |
314 | |
315 | if (defined $host) { |
315 | if (defined $host) { |
316 | $self->{server_port} = $host =~ s/:([0-9]+)$// ? $1 : 80; |
316 | $self->{server_port} = $host =~ s/:([0-9]+)$// ? $1 : 80; |
317 | } else { |
317 | } else { |
318 | ($self->{server_port}, $host) |
318 | ($self->{server_port}, $host) |
319 | = unpack_sockaddr_in $self->{fh}->getsockname |
319 | = unpack_sockaddr_in $self->{fh}->sockname |
320 | or $self->err(500, "unable to get socket name"); |
320 | or $self->err(500, "unable to get socket name"); |
321 | $host = inet_ntoa $host; |
321 | $host = inet_ntoa $host; |
322 | } |
322 | } |
323 | |
323 | |
324 | $self->{server_name} = $host; |
324 | $self->{server_name} = $host; |