diff options
| -rw-r--r-- | dev-perl/mod_perl/files/mod_perl-1.29-ipv6.patch | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/dev-perl/mod_perl/files/mod_perl-1.29-ipv6.patch b/dev-perl/mod_perl/files/mod_perl-1.29-ipv6.patch deleted file mode 100644 index d11d61a6b7c8..000000000000 --- a/dev-perl/mod_perl/files/mod_perl-1.29-ipv6.patch +++ /dev/null @@ -1,29 +0,0 @@ -diff -ru mod_perl-1.27+ipv6/src/modules/perl/Connection.xs mod_perl-1.27/src/modules/perl/Connection.xs ---- mod_perl-1.27/src/modules/perl/Connection.xs Fri Sep 29 16:41:30 2000 -+++ mod_perl-1.27+ipv6/src/modules/perl/Connection.xs Sun Aug 25 23:02:42 2002 -@@ -78,13 +78,14 @@ - RETVAL = newSVpv((char *)&conn->remote_addr, - sizeof conn->remote_addr); - if(sv_addr) { -- struct sockaddr_in addr; -+ struct sockaddr_storage addr; - STRLEN sockaddrlen; - char * new_addr = SvPV(sv_addr,sockaddrlen); - if (sockaddrlen != sizeof(addr)) { - croak("Bad arg length for remote_addr, length is %d, should be %d", sockaddrlen, sizeof(addr)); - } -- Copy(new_addr, &addr, sizeof addr, char); -+ memset(&addr, 0, sizeof addr); -+ Copy(new_addr, &addr, sizeof new_addr, char); - conn->remote_addr = addr; - } - -@@ -106,7 +107,7 @@ - #else - conn->remote_ip = pstrdup(conn->pool, (char *)SvPV(ST(1),na)); - #endif -- conn->remote_addr.sin_addr.s_addr = inet_addr(conn->remote_ip); -+ ((struct sockaddr_in *) &conn->remote_addr)->sin_addr.s_addr = inet_addr(conn->remote_ip); - } - - OUTPUT: |