From b3c9687fd29e264c31a327b1ce51baaada23a085 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 7 Oct 2000 14:21:04 +0000
Subject: no_comment

---
 perl-install/ChangeLog      | 6 ++++++
 perl-install/install_any.pm | 1 +
 perl-install/pkgs.pm        | 1 +
 3 files changed, 8 insertions(+)

diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index 072e1aeac..7b79143a3 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,9 @@
+2000-10-07  Pixel  <pixel@mandrakesoft.com>
+
+	* pkgs.pm (install): log the gonna be installed packages (-> be
+	able to track not installed packages that should have been
+	installed)	
+
 2000-10-06  DrakX <install@linux-mandrake.com>
 
 	* snapshot uploaded
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 95f9c1a5c..6c26b2c18 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -22,6 +22,7 @@ use devices;
 use fsedit;
 use modules;
 use detect_devices;
+use lang;
 use any;
 use log;
 use fs;
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 2324da0ab..ea9b0f154 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -1033,6 +1033,7 @@ sub install($$$;$$) {
     }
 
     log::l("pkgs::install $prefix");
+    log::l("pkgs::install the following: ", join(" ", keys %packages));
     eval { fs::mount("/proc", "$prefix/proc", "proc", 0) } unless -e "$prefix/proc/cpuinfo";
 
     log::l("reading /usr/lib/rpm/rpmrc");
-- 
cgit v1.2.1