--- deliantra/Deliantra-Client/DC/DB.pm	2008/12/24 04:09:27	1.41
+++ deliantra/Deliantra-Client/DC/DB.pm	2009/01/04 10:22:19	1.42
@@ -20,6 +20,7 @@
 use File::Path ();
 use Carp ();
 use Storable ();
+use AnyEvent::Util ();
 use Config;
 use BDB;
 
@@ -357,7 +358,8 @@
 }
 
 sub run {
-   ($FH, my $fh) = DC::socketpipe;
+   ($FH, my $fh) = AnyEvent::Util::portable_socketpair
+     or die "unable to create database socketpair: $!";
 
    my $oldfh = select $FH; $| = 1; select $oldfh;
    my $oldfh = select $fh; $| = 1; select $oldfh;