summaryrefslogtreecommitdiffstats
path: root/perl-install/fs/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-01-18 08:48:29 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-01-18 08:48:29 +0000
commitb7e849ece2d8641de9c0ab9012df534173bcfaf4 (patch)
tree2ab94dd0e3fb22bfb2f6c361ebefc145233ee79d /perl-install/fs/any.pm
parentfee51ddb8fec1601c139a107ab3dcf9d6074e77e (diff)
downloaddrakx-backup-do-not-use-b7e849ece2d8641de9c0ab9012df534173bcfaf4.tar
drakx-backup-do-not-use-b7e849ece2d8641de9c0ab9012df534173bcfaf4.tar.gz
drakx-backup-do-not-use-b7e849ece2d8641de9c0ab9012df534173bcfaf4.tar.bz2
drakx-backup-do-not-use-b7e849ece2d8641de9c0ab9012df534173bcfaf4.tar.xz
drakx-backup-do-not-use-b7e849ece2d8641de9c0ab9012df534173bcfaf4.zip
- 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)
Diffstat (limited to 'perl-install/fs/any.pm')
-rw-r--r--perl-install/fs/any.pm1
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");
}
}