--- cvsroot/Coro/myhttpd/httpd.pl	2001/09/12 16:45:59	1.42
+++ cvsroot/Coro/myhttpd/httpd.pl	2001/09/12 20:29:43	1.43
@@ -316,7 +316,7 @@
          $self->{server_port} = $host =~ s/:([0-9]+)$// ? $1 : 80;
       } else {
          ($self->{server_port}, $host)
-            = unpack_sockaddr_in $self->{fh}->getsockname
+            = unpack_sockaddr_in $self->{fh}->sockname
                or $self->err(500, "unable to get socket name");
          $host = inet_ntoa $host;
       }