move initrd to the expected location for live systems

1 files changed, 8 insertions, 0 deletions

diff --git a/draklive b/draklive
index 180bba6..8bcf33c 100755
--- a/draklive
+++ b/draklive
@@ -29,6 +29,7 @@ use run_program;
 use Getopt::Long;
 use Pod::Usage;
 use File::Temp;
+use File::Copy qw(mv);
 use IO::Handle; #- autoflush
 use POSIX;
 use MDV::Draklive::Utils;
@@ -513,6 +514,13 @@ sub create_initrd {
 
     run_('umount', $root . '/sys');
     run_('umount', $root . '/proc');
+
+    if (need_media_specific_boot($live)) {
+	my $rootfs_initrd = $root . '/boot/' . $live->get_initrd_name;
+	my $media_initrd = $live->get_builddir . $live->{prefix}{build}{boot} . $live->{media}->get_initrd_path;
+	mkdir_p(dirname($media_initrd));
+	mv($rootfs_initrd, $media_initrd) or die "can not move initrd: $!";
+    }
 }
 
 sub create_bootloader {