From bfd3b231137765f76e7b58ab43336421a3d68b78 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 4 Feb 2008 09:45:24 +0000
Subject: - set $::isInstall soon enough for fs::type data-structure creation: 
  fixes reiser4 appearing in diskdrake during install (#36999)

---
 perl-install/install/NEWS        | 2 ++
 perl-install/install/install2.pm | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 5d11446fa..23f3f64e3 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- set $::isInstall soon enough for fs::type data-structure creation:
+  fixes reiser4 appearing in diskdrake during install (#36999)
 - add grub entries to allow booting other installed distros
   (using grub "configfile") (see #16604)
 
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 6b5d3452d..871dadfbb 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -4,6 +4,8 @@ use diagnostics;
 use strict;
 use vars qw($o);
 
+BEGIN { $::isInstall = 1 }
+
 #-######################################################################################
 #- misc imports
 #-######################################################################################
@@ -312,7 +314,6 @@ sub main {
     delete $ENV{TERMINFO};
     umask 022;
 
-    $::isInstall = 1;
     $::isWizard = 1;
     $::no_ugtk_init = 1;
 
-- 
cgit v1.2.1