Changeset 27422 for gs2-extensions/parallel-building

Timestamp:

2013-05-24T09:38:39+12:00 (11 years ago)

Author:

jmt12

Message:

Adding canRead() and isAbsolute() functions

File:

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

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

@@ -28 +28 @@
 # Pragma
 use strict;
+
+
+## @function canRead()
+#
+sub canRead
+{
+  my $path = shift(@_);
+  return &fileTest($path, '-R');
+}
+## canRead()
 
 
@@ -117 +127 @@
 }
 ## fileTest()
+
+
+## @function isFilenameAbsolute()
+#
+sub isFilenameAbsolute
+{
+  my ($filename) = @_;
+  if ($ENV{'GSDLOS'} =~ /^windows$/i)
+  {
+    return ($filename =~ m/^(\w:)?\\/);
+  }
+  return ($filename =~ m/^\//);
+}
+# isFilenameAbsolute()