diff options
| author | Steve Hay <SteveHay@planit.com> | 2003-12-03 10:53:02 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-04 12:00:28 +0000 |
| commit | b8ccb22136640685e24038d8bbdef1880777e04f (patch) | |
| tree | 346dd0a118d8def925e78c706094b55271e0cad8 /lib/File/Copy.pm | |
| parent | ffb5d6c50e5ded491eee7ff839e42f8d3acbf6dd (diff) | |
| download | perl-b8ccb22136640685e24038d8bbdef1880777e04f.tar.gz | |
Fix File::Copy with hard links on Windows.
Subject: [PATCH] Re: perl @ 21830
Date: Wed, 03 Dec 2003 10:53:02 +0000
Message-ID: <3FCDC08E.7080800@uk.radan.com>
and
Date: Thu, 04 Dec 2003 11:02:22 +0000
Message-ID: <3FCF143E.1040905@uk.radan.com>
p4raw-id: //depot/perl@21841
Diffstat (limited to 'lib/File/Copy.pm')
| -rw-r--r-- | lib/File/Copy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index a01192bde2..f5b22e288a 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -78,7 +78,7 @@ sub copy { } if ((($Config{d_symlink} && $Config{d_readlink}) || $Config{d_link}) && - !($^O eq 'Win32' || $^O eq 'os2' || $^O eq 'vms')) { + !($^O eq 'MSWin32' || $^O eq 'os2' || $^O eq 'vms')) { my @fs = stat($from); if (@fs) { my @ts = stat($to); |