From b7e849ece2d8641de9c0ab9012df534173bcfaf4 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 18 Jan 2008 08:48:29 +0000 Subject: - 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) --- perl-install/fs/any.pm | 1 + perl-install/install/NEWS | 2 ++ 2 files changed, 3 insertions(+) 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"); } } diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 10b10095a..456cb5596 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- create /dev/cdrom symlink for installer (#36703) + Version 10.6.5 - 14 January 2008 - do not sort languages in "choose language" step in graphical mode, since the -- cgit v1.2.1