From: Yves Orton <demerphq@gmail.com>
Date: Tue, 28 May 2002 15:43:12 +0000 (+0200)
Subject: Embed.t fails on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29c2e10b646568439f261863b569e814d4538b73;p=p5sagit%2Fp5-mst-13.2.git

Embed.t fails on Win32
From: "Yves Orton" <demerphq@hotmail.com>
Message-ID: <F170zgYLowspDKicUbv0000b23d@hotmail.com>

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

diff --git a/lib/ExtUtils/t/Embed.t b/lib/ExtUtils/t/Embed.t
index 4025318..6cb5cff 100644
--- a/lib/ExtUtils/t/Embed.t
+++ b/lib/ExtUtils/t/Embed.t
@@ -73,10 +73,8 @@ if ($^O eq 'VMS') {
 	push(@cmd,"-L$lib",File::Spec->catfile($lib,$Config{'libperl'}),$Config{'libc'});
     }
    }
-   else {
+   else { # Not MSWin32.
     push(@cmd,"-L$lib",'-lperl');
-   }
-   {
     local $SIG{__WARN__} = sub {
 	warn $_[0] unless $_[0] =~ /No library found for .*perl/
     };