Re: [PATCH] AF_INET6 and old perl versions

[Peter J. Holzer]

On 2006-11-05 17:16:58 +0100, Peter J. Holzer wrote:
> I'm in the process of building and testing RPMs for 0.3x to hopefully
> find bugs before 0.33 is released. 
[...]
> First thing I noticed was that perl 5.6.1 doesn't know about AF_INET6. 
> Should that be fixed or is perl 5.6.1 just too old to bother?

Well, that was easy to fix.

        hp

-- 
   _  | Peter J. Holzer    | Schlagfertigkeit ist das, was einem
|_|_) | Sysadmin WSR       | auf dem Nachhauseweg einfällt.
| |   | [EMAIL PROTECTED]         |    -- Lars 'Cebewee' Noschinski in dasr.
__/   | http://www.hjp.at/ |

--- qpsmtpd-forkserver.af_inet6 Sun Nov  5 16:25:09 2006
+++ qpsmtpd-forkserver  Sun Nov  5 17:32:08 2006
@@ -231,9 +231,9 @@
     my ($port, $iaddr) = ($server->sockdomain == AF_INET) ? 
(sockaddr_in($hisaddr)) : (sockaddr_in6($hisaddr));
     my $localsockaddr = getsockname($client);
     my ($lport, $laddr) = ($server->sockdomain == AF_INET) ? 
(sockaddr_in($localsockaddr)) : (sockaddr_in6($localsockaddr));
-    my $nto_iaddr = ($server->sockdomain == AF_INET) ? (inet_ntoa($iaddr)) : 
(inet_ntop(AF_INET6, $iaddr));
-    my $ton_iaddr = ($server->sockdomain == AF_INET) ? (inet_aton($iaddr)) : 
(inet_pton(AF_INET6, $iaddr));
-    my $nto_laddr = ($server->sockdomain == AF_INET) ? (inet_ntoa($laddr)) : 
(inet_ntop(AF_INET6, $laddr));
+    my $nto_iaddr = ($server->sockdomain == AF_INET) ? (inet_ntoa($iaddr)) : 
(inet_ntop(AF_INET6(), $iaddr));
+    my $ton_iaddr = ($server->sockdomain == AF_INET) ? (inet_aton($iaddr)) : 
(inet_pton(AF_INET6(), $iaddr));
+    my $nto_laddr = ($server->sockdomain == AF_INET) ? (inet_ntoa($laddr)) : 
(inet_ntop(AF_INET6(), $laddr));
     $nto_iaddr =~ s/::ffff://;
     $nto_laddr =~ s/::ffff://;
 

signature.asc
Description: Digital signature