From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 9 Oct 2000 18:54:28 +0000 (+0000)
Subject: Windows9x doesn't support link(), despite what Config.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f0f13d0e834361ee0bff67f37ca83e7fe12a6db3;p=p5sagit%2Fp5-mst-13.2.git

Windows9x doesn't support link(), despite what Config.pm
might think

p4raw-id: //depot/perl@7175
---

diff --git a/lib/ExtUtils/Manifest.pm b/lib/ExtUtils/Manifest.pm
index 8bb3fc8..28b7053 100644
--- a/lib/ExtUtils/Manifest.pm
+++ b/lib/ExtUtils/Manifest.pm
@@ -238,7 +238,7 @@ sub cp {
 
 sub ln {
     my ($srcFile, $dstFile) = @_;
-    return &cp if $Is_VMS;
+    return &cp if $Is_VMS or ($^O eq 'MSWin32' and Win32::IsWin95());
     link($srcFile, $dstFile);
     local($_) = $dstFile; # chmod a+r,go-w+X (except "X" only applies to u=x)
     my $mode= 0444 | (stat)[2] & 0700;