gentoo-overlay/dev-perl/perl-tk/files/perl-tk-804.31.0-xorg.patch

 myConfig | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/myConfig b/myConfig
index e0ace45..be52a82 100755
--- a/myConfig
+++ b/myConfig
@@ -307,7 +307,7 @@ if ($win_arch eq 'x') {
 	}
 	close(XMKMF);
 	while (defined $uidir) {
-	  last unless ($uidir =~ s!^.*-I(\S+)/lib/X11/config!!o);
+	  last unless ($uidir =~ s!^.*-I(\S+)/lib(64)/X11/config!!o);
 	  $try = $1;
 	  $try =~ s/'x11root'/$ENV{X11ROOT}/;
 	  push(@xdirs,$try);
@@ -356,7 +356,7 @@ if ($win_arch eq 'x') {
   #
   unless (defined $xlib)
     {
-      $xlib = &lX11(0,chooseX11(</usr/X11*/lib>),chooseX11(</usr/lib/X11*>),</usr/Xfree*/lib>,'/usr/X386/lib')
+      $xlib = &lX11(0,chooseX11(</usr/X11*/lib>),chooseX11(</usr/lib/X11*>),</usr/Xfree*/lib>,'/usr/X386/lib','/usr/lib64')
     }
 
   #
@@ -375,7 +375,7 @@ if ($win_arch eq 'x') {
       exit 0;
     }
 
-  ($base) = $xlib =~ m#-L(.*)(?:/lib)$#x;
+  ($base) = $xlib =~ m#-L(.*)(?:/lib(64))$#x;
   if (defined $X11INC)
     {
       $xinc = &IX11("$X11INC");
@@ -387,6 +387,8 @@ if ($win_arch eq 'x') {
     {
       warn "Cannot find X include files via $base/include\n";
       $xinc = &IX11(map("$_/include",@xdirs),
+            chooseX11(</usr/include/X11*>),
+		    '/usr/include',
 		    '/usr/openwin/include',
 		    chooseX11(</usr/X11*/include>),
 		    chooseX11(</usr/include/X11*>),