umount /proc and /sys in chroot before cleaning or compressing

1 files changed, 3 insertions, 2 deletions

diff --git a/draklive b/draklive
index bfa6811..449a6c4 100755
--- a/draklive
+++ b/draklive
@@ -380,8 +380,9 @@ sub write_dist_lists {
 
 sub umount_external_filesystem {
     my ($live) = @_;
-    my $mnt = $live->get_system_root . "/mnt/";
-    eval { fs::mount::umount("$mnt/$_") } foreach all($mnt);
+    eval { fs::mount::umount($live->get_system_root . "/" . $_) } foreach
+	(map { "/mnt/$_" } all($live->get_system_root . "/mnt")),
+	qw(/proc/bus/usb /proc /sys);
 }
 
 sub expand_file_list {