Change 13557 by jhi@alpha on 2001/12/09 18:36:20
Subject: bleadperl on cygwin weirdness...
From: "Gerrit P. Haase" <[EMAIL PROTECTED]>
Date: Sun, 9 Dec 2001 20:31:28 +0100
Message-ID: <[EMAIL PROTECTED]>
(plus libperl*.dll version portability tweaks)
Affected files ...
.... //depot/perl/lib/ExtUtils/Embed.t#14 edit
Differences ...
==== //depot/perl/lib/ExtUtils/Embed.t#14 (text) ====
Index: perl/lib/ExtUtils/Embed.t
--- perl/lib/ExtUtils/Embed.t.~1~ Sun Dec 9 11:45:05 2001
+++ perl/lib/ExtUtils/Embed.t Sun Dec 9 11:45:05 2001
@@ -78,7 +78,10 @@
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 @@
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`
End of Patch.
