[patch] revised ipv6 patch

mod_perl-1.27-ipv6.patch (text/plain), 953 bytes, created by Peter Johanson (RETIRED) on 2003-06-24 16:58:39 UTC

diff -aur mod_perl-1.27/src/modules/perl/Connection.xs mod_perl-1.27-ipv6/src/modules/perl/Connection.xs
--- mod_perl-1.27/src/modules/perl/Connection.xs	2000-09-29 10:41:30.000000000 -0400
+++ mod_perl-1.27-ipv6/src/modules/perl/Connection.xs	2003-06-24 19:45:26.000000000 -0400
@@ -84,7 +84,8 @@
         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 new_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: