apache-perl-IPv6.patch

   1 --- mod_perl-1.19/src/modules/perl/Connection.xs.ipv6   Fri Jan  8 17:52:40 1999
   2 +++ mod_perl-1.19/src/modules/perl/Connection.xs        Tue Jul 13 12:52:18 1999
   3 @@ -62,7 +62,7 @@
   4      RETVAL = newSVpv((char *)&conn->remote_addr,
   5                        sizeof conn->remote_addr);
   6      if(sv_addr) {
   7 -        struct sockaddr_in addr;
   8 +        struct sockaddr_storage addr;
   9          STRLEN sockaddrlen;
  10          char * new_addr = SvPV(sv_addr,sockaddrlen);
  11          if (sockaddrlen != sizeof(addr)) {