Changeset 27422 for gs2-extensions/parallel-building/trunk
- Timestamp:
- 2013-05-24T09:38:39+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/FileUtils/LocalFS.pm
r27386 r27422 28 28 # Pragma 29 29 use strict; 30 31 32 ## @function canRead() 33 # 34 sub canRead 35 { 36 my $path = shift(@_); 37 return &fileTest($path, '-R'); 38 } 39 ## canRead() 30 40 31 41 … … 117 127 } 118 128 ## fileTest() 129 130 131 ## @function isFilenameAbsolute() 132 # 133 sub isFilenameAbsolute 134 { 135 my ($filename) = @_; 136 if ($ENV{'GSDLOS'} =~ /^windows$/i) 137 { 138 return ($filename =~ m/^(\w:)?\\/); 139 } 140 return ($filename =~ m/^\//); 141 } 142 # isFilenameAbsolute() 119 143 120 144
Note:
See TracChangeset
for help on using the changeset viewer.