Changeset 27491 for gs2-extensions/parallel-building/trunk

Timestamp:

2013-05-28T11:33:26+12:00 (11 years ago)

Author:

jmt12

Message:

Repairing three bugs in makeAllDirectories - incorrect pattern meant paths without protocols never created, sanitizing the path did nothing, and a use of -e where I should be being directoryExists()

File:

• gs2-extensions/parallel-building/trunk/src/perllib/FileUtils.pm (modified) (3 diffs)

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

@@ -409 +409 @@
   # use / for the directory separator, remove duplicate and
   # trailing slashes
-  &sanitizePath($raw_dir);
+  $raw_dir = &sanitizePath($raw_dir);
   # ensure the directory doesn't already exist
   if (&directoryExists($raw_dir))
@@ -415 +415 @@
     return 0;
   }
-  if ($raw_dir =~ /^(.+?:\/\/)(.*)/)
+  if ($raw_dir =~ /^(.+?:\/\/)?(.*)/)
   {
     my $dirsofar = '';
@@ -430 +430 @@
       $dirsofar .= $dirname;
       next if $dirname =~ /^(|[a-z]:)$/i;
-      if (!-e $dirsofar)
+      if (!&directoryExists($dirsofar))
       {
         my $mkdir_ok = &makeDirectory($dirsofar);