- create /dev/cdrom symlink for installer (#36703)

do create the symlink to have it during install 
(otherwise fs::wild_device::from_part will give a non accessible device)

1 files changed, 1 insertions, 0 deletions

diff --git a/perl-install/fs/any.pm b/perl-install/fs/any.pm
index e84f572a1..a3277131b 100644
--- a/perl-install/fs/any.pm
+++ b/perl-install/fs/any.pm
@@ -58,6 +58,7 @@ sub set_cdrom_symlink {
 	my $alias = basename($_->{mntpoint}) or next;
 	log::l("using alias $alias for $_->{device}");
 	$_->{device_alias} = $alias;
+	symlink($_->{device}, "/dev/$alias") if $::prefix; # do create the symlink to have it during install (otherwise fs::wild_device::from_part will give a non accessible device)
 	symlink($_->{device}, "$::prefix/dev/$alias");
     }
 }