Changeset 14364

Timestamp:

2007-08-13T12:58:02+12:00 (17 years ago)

Author:

qq6

Message:

delete require Win32::Hardlink

File:

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

gsdl/trunk/perllib/util.pm

@@ -386 +386 @@
     # link not supported on windows 9x
     if (($ENV{'GSDLOS'} =~ /^windows$/i) && (Win32::FsType() !~ /^ntfs$/i)) {
+require Win32::Hardlink;
         print STDERR "util::hard_link: win32: using copy for hard link.\n";
         &File::Copy::copy ($src, $dest);
     } else {
-        require Win32::Hardlink;
         if (!link($src, $dest)) {
             print STDERR "util::hard_link: unable to create hard link. ";