From ba03771c7d651728e1e0c4847079a4389ac2419e Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 4 Sep 2002 12:36:32 +0000
Subject: set isInstall in test script otherwise it uses /usr/X11R6/bin/xtest

---
 perl-install/Xconfig/test.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm
index 9431f9207..dff5fd261 100644
--- a/perl-install/Xconfig/test.pm
+++ b/perl-install/Xconfig/test.pm
@@ -100,6 +100,7 @@ sub test {
     open F, "|perl 2>/dev/null";
     print F "use lib qw(", join(' ', @INC), ");\n";
     print F q{
+        BEGIN { $::isInstall = 1 }
         require lang;
         require my_gtk; 
         my_gtk->import(qw(:wrappers)); #- help perl_checker
-- 
cgit v1.2.1