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

Timestamp:

2013-05-27T12:27:31+12:00 (11 years ago)

Author:

jmt12

Message:

Adding makeAllDirectories() (which I'd only implemented in LocalFS) to FileUtils (which in turn calls the Driver specific makeDirectory() recursively) and added test for this function

File:

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

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

@@ -215 +215 @@
 }
 # /** 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/[\\\/]+$//;
-
-  # ensure the directory doesn't already exist
-  if (-e $dir)
-  {
-    return 0;
-  }
-
-  # 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)
-      {
-        &FileUtils::printError('Could not create directory: ' . $dirsofar);
-        return 0;
-      }
-    }
-  }
-  return (-e $dir);
-}
-## makeAllDirectories()
-
 
 ## @function makeDirectory()