From cf35136071dd871fa6d96a7f4f3af77bda02db7e Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Fri, 11 Mar 2005 16:43:20 +0000
Subject: remove useless /

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

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 1ecee8748..5642787fb 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -965,7 +965,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("$::prefix/$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