| … | |
… | |
| 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; |
