diff options
Diffstat (limited to 'perl-install/commands.pm')
| -rw-r--r-- | perl-install/commands.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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 @_; |