macports-ports/perl/p5-x11-protocol/files/patch-UNIXSocket.pm.diff

--- /tmp/old.whatever	2013-02-11 19:31:33.000000000 +0100
+++ Protocol/Connection/UNIXSocket.pm	2013-02-11 19:31:48.000000000 +0100
@@ -21,8 +21,8 @@
     my($pkg) = shift;
     my($host, $dispnum) = @_;
     my($sock) = IO::Socket::UNIX->new('Type' => SOCK_STREAM(),
-				      'Peer' => "/tmp/.X11-unix/X$dispnum");
-    croak "Can't connect to display `unix:$dispnum': $!" unless $sock;
+				      'Peer' => "/$host:$dispnum");
+    croak "Can't connect to display `unix:/$host:$dispnum': $!" unless $sock;
     $sock->autoflush(0);
     return bless \$sock, $pkg;
 }