Changeset 5494

Timestamp:

2003-09-12T11:18:39+12:00 (21 years ago)

Author:

sjboddie

Message:

It turns out that the perl link() function is supported on NTFS. Instead
of resorting to a copy() instead of a link() for all windows platforms
in hard_link() we now only do it for non-ntfs windows's.

File:

• trunk/gsdl/perllib/util.pm (modified) (1 diff)

trunk/gsdl/perllib/util.pm

@@ -298 +298 @@
     mk_all_dir($dest_dir) if (!-e $dest_dir);
 
-    # link not supported on windows
-    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+    # link not supported on windows 9x
+    if (($ENV{'GSDLOS'} =~ /^windows$/i) && (Win32::FsType() !~ /^ntfs$/i)) {
     &File::Copy::copy ($src, $dest);