--- deliantra/Deliantra-Client/DC.pm	2008/09/03 10:36:25	1.192
+++ deliantra/Deliantra-Client/DC.pm	2009/01/04 10:22:19	1.200
@@ -12,8 +12,6 @@
 
 =cut
 
-package Deliantra::Client; # work around CPAN breakage
-package App::Deliantra; # try to reserve namespace
 package DC;
 
 use Carp ();
@@ -21,7 +19,7 @@
 our $VERSION;
 
 BEGIN {
-   $VERSION = '0.9975';
+   $VERSION = '2.02';
 
    use XSLoader;
    XSLoader::load "Deliantra::Client", $VERSION;
@@ -30,7 +28,9 @@
 use utf8;
 use strict qw(vars subs);
 
+use Socket ();
 use AnyEvent ();
+use AnyEvent::Util ();
 use Pod::POM ();
 use File::Path ();
 use Storable (); # finally
@@ -71,17 +71,11 @@
    $_
 }
 
-sub socketpipe() {
-   socketpair my $fh1, my $fh2, Socket::AF_UNIX, Socket::SOCK_STREAM, Socket::PF_UNSPEC
-      or die "cannot establish bidirectional pipe: $!\n";
-
-   ($fh1, $fh2)
-}
-
 sub background(&;&) {
    my ($bg, $cb) = @_;
 
-   my ($fh_r, $fh_w) = DC::socketpipe;
+   my ($fh_r, $fh_w) = AnyEvent::Util::portable_socketpair
+     or die "unable to create background socketpair: $!";
 
    my $pid = fork;