From 81de1c90a50d4d9527787c636d36dfd92ee94da0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 1 Sep 2005 09:09:57 +0000
Subject: cleanup

---
 perl-install/install_steps.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index dc102aa52..435c8836c 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -447,11 +447,12 @@ sub installPackages { #- complete REWORK, TODO and TOCHECK!
     my @toInstall = pkgs::packagesToInstall($packages);
 
     my $time = time();
-    $ENV{DURING_INSTALL} = 1;
-    pkgs::install($o->{isUpgrade}, \@toInstall, $packages, \&installCallback);
-
+    { 
+	local $ENV{DURING_INSTALL} = 1;
+	pkgs::install($o->{isUpgrade}, \@toInstall, $packages, \&installCallback);
+    }
     any::writeandclean_ldsoconf($o->{prefix});
-    delete $ENV{DURING_INSTALL};
+
     run_program::rooted_or_die($o->{prefix}, 'ldconfig');
 
     eval {
-- 
cgit v1.2.1