summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-01-19 10:03:36 +0000
committerFrancois Pons <fpons@mandriva.com>2001-01-19 10:03:36 +0000
commit52b1f86b3bd907d4c39bd0d511a41d36a03c4571 (patch)
treece017e5ff388c474505965300338ac052cc9547e /perl-install/install_any.pm
parenta3534ad0fe0eb97ee92a975c40be4d04a86e975d (diff)
downloaddrakx-52b1f86b3bd907d4c39bd0d511a41d36a03c4571.tar
drakx-52b1f86b3bd907d4c39bd0d511a41d36a03c4571.tar.gz
drakx-52b1f86b3bd907d4c39bd0d511a41d36a03c4571.tar.bz2
drakx-52b1f86b3bd907d4c39bd0d511a41d36a03c4571.tar.xz
drakx-52b1f86b3bd907d4c39bd0d511a41d36a03c4571.zip
fixes for CD not changeable.
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index a93a813b4..b4fcd68a6 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -85,7 +85,7 @@ sub errorOpeningFile($) {
my $max = 32; #- always refuse after $max tries.
if ($::o->{method} eq "cdrom") {
- cat_("/proc/mounts") =~ m|(/tmp/\S+)\s+/tmp/image| and $cdrom = $1;
+ cat_("/proc/mounts") =~ m,(/(?:dev|tmp)/\S+)\s+/tmp/image, and $cdrom = $1;
return unless $cdrom;
ejectCdrom($cdrom);
while ($max > 0 && askChangeMedium($::o->{method}, $asked_medium)) {