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 (file)
--- 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);
      }