Hello community, here is the log from the commit of package perl-X11-Protocol for openSUSE:Factory checked in at 2012-05-25 16:18:00 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-X11-Protocol (Old) and /work/SRC/openSUSE:Factory/.perl-X11-Protocol.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-X11-Protocol", Maintainer is "" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-X11-Protocol/perl-X11-Protocol.changes 2011-09-23 12:39:24.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-X11-Protocol.new/perl-X11-Protocol.changes 2012-05-25 16:18:04.000000000 +0200 @@ -1,0 +2,5 @@ +Mon May 21 10:18:44 UTC 2012 - [email protected] + +- Fix issue with XAUTHLOCALHOSTNAME='localhost' (bnc#746894) + +------------------------------------------------------------------- New: ---- xauthlocalhostname-localhost.diff ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-X11-Protocol.spec ++++++ --- /var/tmp/diff_new_pack.W3TzpX/_old 2012-05-25 16:18:05.000000000 +0200 +++ /var/tmp/diff_new_pack.W3TzpX/_new 2012-05-25 16:18:05.000000000 +0200 @@ -32,6 +32,7 @@ BuildRequires: perl-macros BuildRequires: perl(ExtUtils::MakeMaker) %{perl_requires} +Patch0: xauthlocalhostname-localhost.diff %description X11::Protocol is a client-side interface to the X11 Protocol (see X(1) for @@ -47,6 +48,7 @@ %prep %setup -q -n %{cpan_name}-%{version} +%patch0 -p1 %build %{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" ++++++ xauthlocalhostname-localhost.diff ++++++ diff -Nru X11-Protocol-0.56/Auth.pm X11-Protocol-patched/Auth.pm --- X11-Protocol-0.56/Auth.pm 2012-02-14 12:16:07.230868807 +0100 +++ X11-Protocol-patched/Auth.pm 2012-02-14 12:15:46.169630003 +0100 @@ -102,7 +102,7 @@ my($host, $fam, $dpy) = @_; if ($host eq "localhost" or $host eq "127.0.0.1") { require Sys::Hostname; - $host = Sys::Hostname::hostname(); + $host = $main::ENV{"XAUTHLOCALHOSTNAME"} || Sys::Hostname::hostname(); } my($addr); $addr = gethostbyname($host) if $fam eq "Internet"; @@ -113,7 +113,7 @@ next unless $fam eq $d->[0] or ($fam eq "Internet" and $d->[0] eq "Local"); if ($fam eq "Internet" or $fam eq "Local") { - if ($addr && $d->[1] eq $addr or $d->[1] eq $host) { + if ($addr && $d->[1] eq $addr or $d->[1] eq $host or $d->[1] eq "localhost" or $d->[1] eq "127.0.0.1") { return ($d->[3], $d->[4]); } } -- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
