Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
SUSE:SLE-15-SP2:GA
perl-X11-Protocol
xauthlocalhostname-localhost.diff
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File xauthlocalhostname-localhost.diff of Package perl-X11-Protocol
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]); } }
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
