From: Mattia Barbon <mbarbon@dsi.unive.it>
Date: Thu, 10 Jan 2002 18:56:21 +0000 (+0100)
Subject: Embed.t on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c7e0473b8e90b1186d09d2a13305e6a99b832bfe;p=p5sagit%2Fp5-mst-13.2.git

Embed.t on Win32
Message-ID: <3C3DE3D5.7359.1FEB994@localhost>

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

diff --git a/lib/ExtUtils/t/Embed.t b/lib/ExtUtils/t/Embed.t
index 9285efa..57ad8d1 100644
--- a/lib/ExtUtils/t/Embed.t
+++ b/lib/ExtUtils/t/Embed.t
@@ -99,7 +99,8 @@ if ($^O eq 'VMS') {
      $srclib = File::Spec::->catfile($lib, $srclib);
      if (-f $srclib) {
        unlink $testlib if -f $testlib;
-       my $lncmd = "$Config{'ln'} $srclib $testlib";
+       my $ln_or_cp = $Config{'ln'} || $Config{'cp'};
+       my $lncmd = "$ln_or_cp $srclib $testlib";
        #print "# $lncmd\n";
        $libperl_copied = 1	unless system($lncmd);
      }