Change 14173: [PATCH] Embed.t on Win32

[Jarkko Hietaniemi]

Change 14173 by jhi@alpha on 2002/01/10 19:32:16

        Subject: [PATCH] Embed.t on Win32
        From: "Mattia Barbon" <[EMAIL PROTECTED]>
        Date: Thu, 10 Jan 2002 18:56:21 +0100
        Message-ID: <3C3DE3D5.7359.1FEB994@localhost>

Affected files ...

.... //depot/perl/lib/ExtUtils/t/Embed.t#4 edit

Differences ...

==== //depot/perl/lib/ExtUtils/t/Embed.t#4 (text) ====
Index: perl/lib/ExtUtils/t/Embed.t
--- perl/lib/ExtUtils/t/Embed.t.~1~     Thu Jan 10 12:45:06 2002
+++ perl/lib/ExtUtils/t/Embed.t Thu Jan 10 12:45:06 2002
@@ -99,7 +99,8 @@
      $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);
      }
End of Patch.