Change 15983: [PATCH@15930] Borland for Win32 adaptation for lib/ExtUtils/t/Embed.t

[Jarkko Hietaniemi]

Change 15983 by jhi@alpha on 2002/04/17 21:05:04

        Subject: [PATCH@15930] Borland for Win32 adaptation for lib/ExtUtils/t/Embed.t
        From: "Konovalov, Vadim" <[EMAIL PROTECTED]>
        Date: Wed, 17 Apr 2002 21:16:22 +0400
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

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

Differences ...

==== //depot/perl/lib/ExtUtils/t/Embed.t#9 (text) ====
Index: perl/lib/ExtUtils/t/Embed.t
--- perl/lib/ExtUtils/t/Embed.t.~1~     Wed Apr 17 15:15:05 2002
+++ perl/lib/ExtUtils/t/Embed.t Wed Apr 17 15:15:05 2002
@@ -20,6 +20,7 @@
 print "1..9\n";
 my $cc = $Config{'cc'};
 my $cl  = ($^O eq 'MSWin32' && $cc eq 'cl');
+my $borl  = ($^O eq 'MSWin32' && $cc eq 'bcc32');
 my $skip_exe = $^O eq 'os2' && $Config{ldflags} =~ /(?<!\S)-Zexe\b/;
 my $exe = 'embed_test';
 $exe .= $Config{'exe_ext'} unless $skip_exe;   # Linker will auto-append it
@@ -53,6 +54,9 @@
    if ($cl) {
     push(@cmd,$cc,"-Fe$exe");
    }
+   elsif ($borl) {
+    push(@cmd,$cc,"-o$exe");
+   }
    else {
     push(@cmd,$cc,'-o' => $exe);
    }
@@ -80,6 +84,9 @@
        if $^O eq 'os2' and $Config{ldflags} =~ /(?<!\S)-Zomf\b/;
     push(@cmd,ldopts());
    }
+   if ($borl) {
+     @cmd = ($cmd[0],(grep{/^-[LI]/}@cmd[1..$#cmd]),(grep{!/^-[LI]/}@cmd[1..$#cmd]));
+   }
 
    if ($^O eq 'aix') { # AIX needs an explicit symbol export list.
     my ($perl_exp) = grep { -f } qw(perl.exp ../perl.exp);
End of Patch.