--- /tmp/Protocol.pm 2013-02-11 19:32:53.000000000 +0100 +++ Protocol.pm 2013-02-11 19:24:56.000000000 +0100 @@ -2259,7 +2259,7 @@ $dispnum = $2; $screen = 0 unless $screen = $3; if ($] >= 5.00301) { # IO::Socket is bundled - if ($host eq 'unix') { + if ($host eq 'unix' || $host =~ /tmp\//) { require 'X11/Protocol/Connection/UNIXSocket.pm'; $conn = X11::Protocol::Connection::UNIXSocket ->open($host, $dispnum);