makeDir() rewritten to use File::Path module, to implement recursive mkdir

git-svn-id: file:///svnroot/renrot/trunk@568 fe2816f4-e837-0410-b10a-f608c9d244a1

1 files changed, 5 insertions, 2 deletions

diff --git a/renrot b/renrot
index 67c313e..0069cba 100755
--- a/renrot
+++ b/renrot
@@ -17,7 +17,7 @@ use Time::Local;
 use Image::ExifTool;
 use Getopt::Long;
 use File::Spec;
-
+use File::Path;
 use Term::ANSIColor;
 
 $Term::ANSIColor::AUTORESET = 1;
@@ -1624,7 +1624,10 @@ sub colorValidator {
 sub makeDir {
   my $new_dir = shift;
   if (not -d $new_dir) {
-    unless (mkdir $new_dir) { errmsg ("$new_dir wasn't created! Perhaps the path contains nonexistent subdirectories...\n"); }
+    eval { mkpath( $new_dir, 0, 0700) };
+    if ($@) {
+      errmsg ("Couldn't create $new_dir: $@");
+    }
   }
 }