Update of /cvsroot/fink/dists/10.4/stable/main/finkinfo/10.4-EOL/libs/perlmods
In directory vz-cvs-3.sog:/tmp/cvs-serv21713
Added Files:
x11-protocol-pm.info x11-protocol-pm.patch
Log Message:
sync. w/ 10.!4/stable, validated on powerpc-darwin8
--- NEW FILE: x11-protocol-pm.patch ---
diff -Nur X11-Protocol-0.56.orig/Protocol/Connection/UNIXSocket.pm
X11-Protocol-0.56/Protocol/Connection/UNIXSocket.pm
--- X11-Protocol-0.56.orig/Protocol/Connection/UNIXSocket.pm 2003-02-15
11:44:43.000000000 -0600
+++ X11-Protocol-0.56/Protocol/Connection/UNIXSocket.pm 2008-08-14
10:39:54.000000000 -0500
@@ -20,8 +20,14 @@
sub open {
my($pkg) = shift;
my($host, $dispnum) = @_;
- my($sock) = IO::Socket::UNIX->new('Type' => SOCK_STREAM(),
- 'Peer' => "/tmp/.X11-unix/X$dispnum");
+ my $sock;
+ if ($host eq 'unix') {
+ ($sock) = IO::Socket::UNIX->new('Type' => SOCK_STREAM(),
+ 'Peer' => "/tmp/.X11-unix/X$dispnum");
+ } else {
+ ($sock) = IO::Socket::UNIX->new('Type' => SOCK_STREAM(),
+ 'Peer' => $host);
+ }
croak "Can't connect to display `unix:$dispnum': $!" unless $sock;
$sock->autoflush(0);
return bless \$sock, $pkg;
diff -Nur X11-Protocol-0.56.orig/Protocol.pm X11-Protocol-0.56/Protocol.pm
--- X11-Protocol-0.56.orig/Protocol.pm 2006-10-08 15:16:30.000000000 -0500
+++ X11-Protocol-0.56/Protocol.pm 2008-08-14 10:38:49.000000000 -0500
@@ -2265,6 +2265,12 @@
->open($host, $dispnum);
$host = 'localhost';
$family = 'Local';
+ } elsif (-S $display) {
+ require 'X11/Protocol/Connection/UNIXSocket.pm';
+ $conn = X11::Protocol::Connection::UNIXSocket
+ ->open($display, $dispnum);
+ $host = 'localhost';
+ $family = 'Local';
} else {
require 'X11/Protocol/Connection/INETSocket.pm';
$conn = X11::Protocol::Connection::INETSocket
--- NEW FILE: x11-protocol-pm.info ---
Info2: <<
Package: x11-protocol-pm
Version: 0.56
Revision: 2
###
BuildDepends: fink (>= 0.24.12-1)
Depends: x11
###
Source: mirror:cpan:authors/id/S/SM/SMCCAM/X11-Protocol-%v.tar.gz
Source-MD5: 2260bad68d373b201b17c60d761e0f0a
PatchFile: %n.patch
PatchFile-MD5: 5e02c27327d12a11bea98d2ec60d4ffd
###
Type: perl
UpdatePOD: true
NoPerlTests: true
###
DocFiles: Changes MANIFEST README Todo
###
Description: X Window System Protocol, version 11
DescDetail: <<
X11::Protocol is a client-side interface to the X11 Protocol (see X(1) for
information about X11), allowing perl programs to display windows and
graphics on X11 servers.
<<
DescPort: <<
'make test' requires X11 to be running and user input, so
tests are disabled.
<<
###
License: OSI-Approved
Maintainer: degraw <deg...@users.sourceforge.net>
Homepage: http://search.cpan.org/dist/X11-Protocol
<<
------------------------------------------------------------------------------
Ridiculously easy VDI. With Citrix VDI-in-a-Box, you don't need a complex
infrastructure or vast IT resources to deliver seamless, secure access to
virtual desktops. With this all-in-one solution, easily deploy virtual
desktops for less than the cost of PCs and save 60% on VDI infrastructure
costs. Try it free! http://p.sf.net/sfu/Citrix-VDIinabox
_______________________________________________
Fink-commits mailing list
Fink-commits@lists.sourceforge.net
http://news.gmane.org/gmane.os.apple.fink.cvs
