Changeset 38492 for main/trunk/greenstone2

Timestamp:

2023-12-14T10:12:13+13:00 (6 months ago)

Author:

kjdon

Message:

sometimes destination dir might be a new folder a couple of folders deep, which all need to be created.

File:

• main/trunk/greenstone2/perllib/FileUtils.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/FileUtils.pm

@@ -408 +408 @@
     if (! -d $dest)
     {
-    my $store_umask = umask(0002);
-    my $mkdir_status = mkdir($dest, 0777);
-    
+    my $mkdir_status = &makeAllDirectories($dest);
     if (!$mkdir_status) {
-        print STDERR "$!\n";
-        print STDERR "FileUtils::_copyFilesRecursiveGeneral() failed to create directory $dest\n";
-        umask($store_umask);
-        
         return 0;
     }
-    umask($store_umask);
-    }
+    }
+
+    #   my $store_umask = umask(0002);
+#   my $mkdir_status = mkdir($dest, 0777);
+       
+#   if (!$mkdir_status) {
+#       print STDERR "$!\n";
+#       print STDERR "FileUtils::_copyFilesRecursiveGeneral() failed to create directory $dest\n";
+#       umask($store_umask);
+        
+#       return 0;
+#   }
+#   umask($store_umask);
+ #   }
 
     my $had_an_error = 0;