From 2c96f26a12ae4d0474c70d61c6cab483c2865f49 Mon Sep 17 00:00:00 2001 From: Olli Hauer Date: Sun, 1 Jan 2012 19:30:58 +0000 Subject: - remove apache13 and ports depending on apache13 from portstree ( EXPIRATION_DATE=2012-01-01 ) with hat apache@ --- .../files/patch-src:modules:perl:Connection.xs | 39 ---------------------- 1 file changed, 39 deletions(-) delete mode 100644 www/mod_perl/files/patch-src:modules:perl:Connection.xs (limited to 'www/mod_perl/files/patch-src:modules:perl:Connection.xs') diff --git a/www/mod_perl/files/patch-src:modules:perl:Connection.xs b/www/mod_perl/files/patch-src:modules:perl:Connection.xs deleted file mode 100644 index 22eea28838da..000000000000 --- a/www/mod_perl/files/patch-src:modules:perl:Connection.xs +++ /dev/null @@ -1,39 +0,0 @@ ---- src/modules/perl/Connection.xs.orig Fri Nov 23 06:19:44 2001 -+++ src/modules/perl/Connection.xs Fri Nov 23 10:29:44 2001 -@@ -78,7 +78,11 @@ - RETVAL = newSVpv((char *)&conn->remote_addr, - sizeof conn->remote_addr); - if(sv_addr) { -+#ifdef APACHE6 -+ struct sockaddr_storage addr; -+#else - struct sockaddr_in addr; -+#endif - STRLEN sockaddrlen; - char * new_addr = SvPV(sv_addr,sockaddrlen); - if (sockaddrlen != sizeof(addr)) { -@@ -106,7 +110,26 @@ - #else - conn->remote_ip = pstrdup(conn->pool, (char *)SvPV(ST(1),na)); - #endif -+#ifdef APACHE6 -+ { -+ struct addrinfo hints, *res0; -+ int error; -+ -+ memset(&hints, 0, sizeof(hints)); -+ hints.ai_family = PF_UNSPEC; -+ hints.ai_flags = AI_NUMERICHOST; -+ error = getaddrinfo(conn->remote_ip, NULL, &hints, &res0); -+ if (!error) { -+ memcpy(&conn->remote_addr, res0->ai_addr, res0->ai_addrlen); -+ freeaddrinfo(res0); -+ } else { -+ croak("Bad ip address in remote_ip getaddrinfo failed %s", -+ gai_strerror(error)); -+ } -+ } -+#else - conn->remote_addr.sin_addr.s_addr = inet_addr(conn->remote_ip); -+#endif - } -- cgit v1.2.3