This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bleadperl on cygwin weirdness...
authorGerrit P. Haase <gp@familiehaase.de>
Sun, 9 Dec 2001 20:31:28 +0000 (21:31 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 9 Dec 2001 18:36:20 +0000 (18:36 +0000)
Message-ID: <13779422183.20011209203128@familiehaase.de>

(plus libperl*.dll version portability tweaks)

p4raw-id: //depot/perl@13557

lib/ExtUtils/Embed.t

index b56d233..b6ddd0f 100644 (file)
@@ -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`