From b73db70b58914e1d37821ad2ed1c393bc5ba9be3 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 11 Mar 2005 16:28:25 +0000
Subject: really create ISO images mountpoint (me sux)

---
 perl-install/install_any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 79acf0d59..27704407f 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -963,7 +963,7 @@ sub install_urpmi {
                   log::l("unable to find ISO image file name ($iso_info->{file}), not adding urpmi media"), next;
                 my $dest = "/mnt/inst_iso";
                 $dir = "removable:/$dest/$_->{rpmsdir}";
-                -d "$::prefix/$dest" or mkdir_p($dest);
+                -d "$::prefix/$dest" or mkdir_p("$::prefix/$dest");
                 $removable_device = "$p->{mntpoint}/$iso_path";
             } elsif ($curmethod eq 'cdrom') {
                 $removable_device = '/dev/cdrom';
-- 
cgit v1.2.1