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

Timestamp:

2015-12-16T15:43:01+13:00 (8 years ago)

Author:

jmt12

Message:

Restructured readDirectory to not die if directory isn't readable

File:

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

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

@@ -345 +345 @@
 {
   my $path = shift(@_);
-  opendir(DH, $path) or &FileUtils::printError('Failed to open directory for reading: ' . $path, 1);
-  my @files = readdir(DH);
-  close(DH);
-  return \@files;
+  my $rvalue;
+  if (opendir(DH, $path))
+  {
+      my @files = readdir(DH);
+      close(DH);
+      $rvalue = \@files;
+  }
+  return $rvalue;
 }
 # /** readDirectory() **/