From aeaff5c49670fbc9cec1ba397e4a04b2dd9c92b6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 3 Jan 2001 14:15:56 +0000 Subject: (main): move the setting of PATH and spawnShell *after* setting $prefix --- perl-install/install2.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index fc07b9693..829828e6e 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -546,12 +546,6 @@ sub main { log::l("second stage install running"); log::ld("extra log messages are enabled"); - #- make sure we don't pick up any gunk from the outside world - my $remote_path = "$o->{prefix}/sbin:$o->{prefix}/bin:$o->{prefix}/usr/sbin:$o->{prefix}/usr/bin:$o->{prefix}/usr/X11R6/bin"; - $ENV{PATH} = "/usr/bin:/bin:/sbin:/usr/sbin:/usr/X11R6/bin:$remote_path" unless $::g_auto_install; - - eval { spawnShell() }; - $o->{prefix} = $::testing ? "/tmp/test-perl-install" : $::live ? "" : "/mnt"; $o->{root} = $::testing ? "/tmp/root-perl-install" : "/"; if ($::live) { @@ -561,6 +555,12 @@ sub main { mkdir $o->{prefix}, 0755; mkdir $o->{root}, 0755; + #- make sure we don't pick up any gunk from the outside world + my $remote_path = "$o->{prefix}/sbin:$o->{prefix}/bin:$o->{prefix}/usr/sbin:$o->{prefix}/usr/bin:$o->{prefix}/usr/X11R6/bin"; + $ENV{PATH} = "/usr/bin:/bin:/sbin:/usr/sbin:/usr/X11R6/bin:$remote_path" unless $::g_auto_install; + + eval { spawnShell() }; + $o->{interactive} ||= 'gtk'; if ($o->{interactive} eq "gtk" && availableMemory < 22 * 1024) { log::l("switching to newt install cuz not enough memory"); -- cgit v1.2.1