From 2c0ddd59eef561bfb4af9cec1d42897a03112f52 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 15 Feb 2001 16:59:51 +0000
Subject: (main): set SHARE_PATH to /export/Mandrake/mdkinst/usr/share if it
 exists

---
 perl-install/install2.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index b62511da0..f1464ce1e 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -372,7 +372,6 @@ sub main {
 		       require install_steps_auto_install;
 		       install_steps_auto_install::errorInStep();
 		   };
-    $ENV{SHARE_PATH} ||= "/usr/share";
     $ENV{PERL_BADLANG} = 1;
 
     $::isInstall = 1;
@@ -437,6 +436,13 @@ sub main {
 	}}{lc $n}; &$f if $f;
     } %cmdline;
 
+    if ($::testing) {
+	$ENV{SHARE_PATH} ||= "/export/Mandrake/mdkinst/usr/share";
+	$ENV{SHARE_PATH} = "/usr/share" if !-e $ENV{SHARE_PATH};
+    } else {
+	$ENV{SHARE_PATH} ||= "/usr/share";
+    }
+
     undef $::auto_install if $cfg;
     if ($::g_auto_install) {
 	(my $root = `/bin/pwd`) =~ s|(/[^/]*){5}$||;
-- 
cgit v1.2.1