Changeset 27682

Timestamp:

2013-06-21T12:19:57+12:00 (11 years ago)

Author:

jmt12

Message:

Copying makeAllDirectories() from vanilla FileUtils.pm

File:

• gs2-extensions/parallel-building/trunk/src/perllib/FileUtils/LocalFS.pm (modified) (1 diff)

gs2-extensions/parallel-building/trunk/src/perllib/FileUtils/LocalFS.pm

@@ -240 +240 @@
 }
 # /** linkFile() **/
+
+
+## @function makeAllDirectories()
+#
+# in case anyone cares - I did some testing (using perls Benchmark module)
+# on this subroutine against File::Path::mkpath (). mk_all_dir() is apparently
+# slightly faster (surprisingly) - Stefan.
+#
+sub makeAllDirectories
+{
+  my ($dir) = @_;
+
+  # use / for the directory separator, remove duplicate and
+  # trailing slashes
+  $dir=~s/[\\\/]+/\//g;
+  $dir=~s/[\\\/]+$//;
+
+  # make sure the cache directory exists
+  my $dirsofar = "";
+  my $first = 1;
+  foreach my $dirname (split ("/", $dir))
+  {
+    $dirsofar .= "/" unless $first;
+    $first = 0;
+
+    $dirsofar .= $dirname;
+
+    next if $dirname =~ /^(|[a-z]:)$/i;
+    if (!-e $dirsofar)
+    {
+      my $store_umask = umask(0002);
+      my $mkdir_ok = mkdir ($dirsofar, 0777);
+      umask($store_umask);
+      if (!$mkdir_ok)
+      {
+        print STDERR "FileUtils::makeAllDirectories() could not create directory $dirsofar\n";
+        return;
+      }
+    }
+  }
+ return 1;
+}
+## makeAllDirectories()
+
 
 ## @function makeDirectory()