summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-03-23 19:02:52 +0000
committerOlivier Blin <oblin@mandriva.org>2005-03-23 19:02:52 +0000
commit12021356b311d99f3870f165564c5d4703cc70be (patch)
tree85f046e20cff7c6a4fd6bd2e03545641f659f62a /perl-install
parent4316d0f30cb0512638d823982623807709f251ca (diff)
downloaddrakx-12021356b311d99f3870f165564c5d4703cc70be.tar
drakx-12021356b311d99f3870f165564c5d4703cc70be.tar.gz
drakx-12021356b311d99f3870f165564c5d4703cc70be.tar.bz2
drakx-12021356b311d99f3870f165564c5d4703cc70be.tar.xz
drakx-12021356b311d99f3870f165564c5d4703cc70be.zip
temporarily fallback on /mnt/hd if the hard disk mount point can't be found
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 83c490a85..88a95b215 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -983,7 +983,8 @@ sub install_urpmi {
my $dest = "/mnt/inst_iso";
$dir = "removable:/$dest/$_->{rpmsdir}";
-d "$::prefix$dest" or mkdir_p("$::prefix$dest");
- $removable_device = "$p->{mntpoint}/$iso_path";
+ #- FIXME: don't use /mnt/hd but really try to find the mount point
+ $removable_device = ($p->{mntpoint} || "/mnt/hd") . "/$iso_path";
} elsif ($curmethod eq 'cdrom') {
$removable_device = '/dev/cdrom';
}