From c2291d42ccff39452769c2c5d1e62842765dcf7b Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 17 Mar 2000 18:28:37 +0000
Subject: *** empty log message ***

---
 perl-install/commands.pm | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 1f2170de2..0c49dd87a 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -99,6 +99,7 @@ sub mkdir_ {
 	    $rec or die "mkdir: $root does not exist (try option -p)\n";
 	    &$mkdir($root);
 	}
+	$rec and -d $_[0] and return;
 	mkdir $_[0], 0755 or die "mkdir: error creating directory $_: $!\n";
     };
     &$mkdir($_) foreach @_;
-- 
cgit v1.2.1