--- deliantra/Deliantra-Client/DC.pm 2008/09/03 10:36:25 1.192 +++ deliantra/Deliantra-Client/DC.pm 2008/09/05 15:24:10 1.193 @@ -21,7 +21,7 @@ our $VERSION; BEGIN { - $VERSION = '0.9975'; + $VERSION = '0.9976'; use XSLoader; XSLoader::load "Deliantra::Client", $VERSION; @@ -72,7 +72,7 @@ } sub socketpipe() { - socketpair my $fh1, my $fh2, Socket::AF_UNIX, Socket::SOCK_STREAM, Socket::PF_UNSPEC + socketpair my $fh1, my $fh2, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC or die "cannot establish bidirectional pipe: $!\n"; ($fh1, $fh2)