diff options
| author | Vadim Konovalov <vkonovalov@lucent.com> | 2002-04-18 01:16:22 +0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-17 21:05:04 +0000 |
| commit | 2a8c1a1c1d4116c0566e41873c2e733d9b238e92 (patch) | |
| tree | a0678c5aceac94e772d7ff0ceca4a69f38bcb4e6 /lib/ExtUtils/t/Embed.t | |
| parent | a051bdb4a5dd256e73719c29e4e82ba666ed7f4d (diff) | |
| download | perl-2a8c1a1c1d4116c0566e41873c2e733d9b238e92.tar.gz | |
Borland for Win32 adaptation for lib/ExtUtils/t/Embed.t
From: "Konovalov, Vadim" <vkonovalov@spb.lucent.com>
Message-ID: <845FCFF2D4C0FC468B485E8777C7A00C028117@cio-test001.spb.lucent.com>
p4raw-id: //depot/perl@15983
Diffstat (limited to 'lib/ExtUtils/t/Embed.t')
| -rw-r--r-- | lib/ExtUtils/t/Embed.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/ExtUtils/t/Embed.t b/lib/ExtUtils/t/Embed.t index 1340fcd901..d654b1cab3 100644 --- a/lib/ExtUtils/t/Embed.t +++ b/lib/ExtUtils/t/Embed.t @@ -20,6 +20,7 @@ $| = 1; 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 ($^O eq 'VMS') { 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 'VMS') { 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); |