From 1a93a4749ea3e4f5d7b83fa8010e5842154586ac Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
Date: Mon, 31 Mar 2008 14:41:20 +0000
Subject: extract write_dist_lists

---
 draklive | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/draklive b/draklive
index 2867424..d35b19c 100755
--- a/draklive
+++ b/draklive
@@ -858,6 +858,14 @@ sub post_install_system {
     run_({ setarch => $live->{settings}{arch} },
 	 "chroot", get_system_root($live), "bash", "-c", $live->{system}{postInstall}) if $live->{system}{postInstall};
 
+    write_dist_lists($live);
+
+    umask $previous_umask;
+}
+
+sub write_dist_lists {
+    my ($live) = @_;
+
     my $lst = get_builddir($live) . $live->{prefix}{build}{dist} . '/' . get_live_name($live) . '.lst';
     mkdir_p(dirname($lst));
     run_("chroot " . get_system_root($live) . " rpm -qa | sort > " . $lst);
@@ -867,8 +875,6 @@ sub post_install_system {
     my @langs = grep { member(lang::locale_to_main_locale($_), @live_langs) } lang::list_langs();
     my $langs_file = get_builddir($live) . $live->{prefix}{build}{dist} . '/' . get_live_name($live) . '.langs';
     output_p($langs_file, map { lang::l2name($_) . " (" . $_ . ")\n" } sort(@langs));
-
-    umask $previous_umask;
 }
 
 sub umount_external_filesystem {
-- 
cgit v1.2.1