[128092] trunk/dports/perl/p5-x11-protocol

[khindenburg at macports.org]

Revision: 128092
          https://trac.macports.org/changeset/128092
Author:   khindenburg at macports.org
Date:     2014-11-12 20:36:24 -0800 (Wed, 12 Nov 2014)
Log Message:
-----------
p5-x11-protocol: add patches to work with XQuartz #41886 #39569"

Modified Paths:
--------------
    trunk/dports/perl/p5-x11-protocol/Portfile

Added Paths:
-----------
    trunk/dports/perl/p5-x11-protocol/files/
    trunk/dports/perl/p5-x11-protocol/files/patch-Protocol.pm.diff
    trunk/dports/perl/p5-x11-protocol/files/patch-UNIXSocket.pm.diff

Modified: trunk/dports/perl/p5-x11-protocol/Portfile
===================================================================
--- trunk/dports/perl/p5-x11-protocol/Portfile	2014-11-13 04:26:22 UTC (rev 128091)
+++ trunk/dports/perl/p5-x11-protocol/Portfile	2014-11-13 04:36:24 UTC (rev 128092)
@@ -6,7 +6,7 @@
 
 perl5.branches      5.8 5.10 5.12 5.14 5.16 5.18 5.20
 perl5.setup         X11-Protocol 0.56
-revision            2
+revision            3
 maintainers         nomaintainer
 description         Perl module for the X Window System Protocol, version 11
 long_description    X11::Protocol is a client-side interface to the X11 \
@@ -18,4 +18,12 @@
 checksums           rmd160  5868e0ee048a32cfbe4759fac09d4aef64d81582 \
                     sha256  de96dd6c7c1f25f3287aa7af64902bf84acaaa8e0c3bb76aa1676367e04a08b7
 
+                    # https://rt.cpan.org/Public/Bug/Display.html?id=78664
+patchfiles          patch-UNIXSocket.pm.diff \
+                    patch-Protocol.pm.diff
+
 supported_archs     noarch
+
+# Doesn't work from 'port test' - use terminal
+#test.run            yes
+#test.cmd            make test

Added: trunk/dports/perl/p5-x11-protocol/files/patch-Protocol.pm.diff
===================================================================
--- trunk/dports/perl/p5-x11-protocol/files/patch-Protocol.pm.diff	                        (rev 0)
+++ trunk/dports/perl/p5-x11-protocol/files/patch-Protocol.pm.diff	2014-11-13 04:36:24 UTC (rev 128092)
@@ -0,0 +1,11 @@
+--- /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);

Added: trunk/dports/perl/p5-x11-protocol/files/patch-UNIXSocket.pm.diff
===================================================================
--- trunk/dports/perl/p5-x11-protocol/files/patch-UNIXSocket.pm.diff	                        (rev 0)
+++ trunk/dports/perl/p5-x11-protocol/files/patch-UNIXSocket.pm.diff	2014-11-13 04:36:24 UTC (rev 128092)
@@ -0,0 +1,13 @@
+--- /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;
+ }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20141112/0f56011c/attachment-0001.html>