Changeset 28225 for main/trunk/greenstone2/perllib/util.pm
- Timestamp:
- 2013-09-05T16:30:23+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r28213 r28225 42 42 use FileUtils; 43 43 44 if ($^O =~ m/mswin/i) { 45 require Win32; # for working out Windows Long Filenames from Win 8.3 short filenames 46 } 47 44 48 # removes files (but not directories) 45 49 sub rm { … … 1295 1299 1296 1300 return $path unless is_abs_path_any_os($path); # path is relative 1297 1301 1302 if ($^O =~ m/mswin/i) { 1303 $path = &Win32::GetLongPathName($path); 1304 } 1305 1298 1306 # now we know we're dealing with absolute paths and have to replace gs prefixes with placeholders 1299 1307 my @gs_paths = ($ENV{'GSDLCOLLECTDIR'}, $ENV{'GSDLCOLLECTHOME'}, $ENV{'SITEHOME'}, $ENV{'GREENSTONEHOME'}); # list in this order: from longest to shortest path
Note:
See TracChangeset
for help on using the changeset viewer.