Changeset 14364

Show
Ignore:
Timestamp:
13.08.2007 12:58:02 (12 years ago)
Author:
qq6
Message:

delete require Win32::Hardlink

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/util.pm

    r14362 r14364  
    386386    # link not supported on windows 9x 
    387387    if (($ENV{'GSDLOS'} =~ /^windows$/i) && (Win32::FsType() !~ /^ntfs$/i)) { 
     388require Win32::Hardlink; 
    388389        print STDERR "util::hard_link: win32: using copy for hard link.\n"; 
    389390        &File::Copy::copy ($src, $dest); 
    390391    } else { 
    391         require Win32::Hardlink; 
    392392        if (!link($src, $dest)) { 
    393393            print STDERR "util::hard_link: unable to create hard link. ";