From: Gerrit P. Haase <gp@familiehaase.de>
Date: Sun, 9 Dec 2001 20:31:28 +0000 (+0100)
Subject: bleadperl on cygwin weirdness...
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=41f1c18b7f5c96c7e2342be26f828b975f27fecb;p=p5sagit%2Fp5-mst-13.2.git

bleadperl on cygwin weirdness...
Message-ID: <13779422183.20011209203128@familiehaase.de>

(plus libperl*.dll version portability tweaks)

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

diff --git a/lib/ExtUtils/Embed.t b/lib/ExtUtils/Embed.t
index b56d233..b6ddd0f 100644
--- a/lib/ExtUtils/Embed.t
+++ b/lib/ExtUtils/Embed.t
@@ -78,7 +78,10 @@ if ($^O eq 'VMS') {
         s!-bE:(\S+)!-bE:$perl_exp!;
     }
    } elsif ($^O eq 'cygwin') { # Cygwin needs the libperl copied
-     system("cp ../$Config{'libperl'} ../libperl.dll");    # for test 1
+     my $v_e_r_s = $Config{version};
+     $v_e_r_s =~ tr/./_/;
+     system("cp ../libperl$v_e_r_s.dll ./");    # for test 1
+     system("cp ../$Config{'libperl'} ../libperl.a");    # for test 1
    }
 }
 my $status;
@@ -99,7 +102,8 @@ $status = system($embed_test);
 print (($status? 'not ':'')."ok 9 # $status\n");
 unlink($exe,"embed_test.c",$obj);
 unlink("embed_test.map","embed_test.lis") if $^O eq 'VMS';
-unlink("../libperl.dll") if $^O eq 'cygwin';
+unlink(glob("./libperl*.dll")) if $^O eq 'cygwin';
+unlink("../libperl.a")         if $^O eq 'cygwin';
 
 # gcc -g -I.. -L../ -o perl_test perl_test.c -lperl `../perl -I../lib -MExtUtils::Embed -I../ -e ccopts -e ldopts`