forked from pool/perl-X11-Protocol
d8e774f6b9
Fixing bug "Perl module X11::Auth not knowing about the openSUSE-specific XAUTHLOCALHOSTNAME environment variable" https://bugzilla.novell.com/show_bug.cgi?id=746894 https://rt.cpan.org/Public/Bug/Display.html?id=74997 OBS-URL: https://build.opensuse.org/request/show/121706 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-X11-Protocol?expand=0&rev=7
22 lines
888 B
Diff
22 lines
888 B
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]);
|
|
}
|
|
}
|