diff options
| author | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
|---|---|---|
| committer | Tim Bunce <Tim.Bunce@ig.co.uk> | 1997-06-11 12:00:00 +1200 |
| commit | 3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03 (patch) | |
| tree | 0143be655536dc428f4fa3cc7d01f6bcffe14c01 /lib/ExtUtils/Mksymlists.pm | |
| parent | 08aa1457cd52a368c210ab76a3da91cfadabea1a (diff) | |
| parent | 3458556dd685b1767b760a72bd2e9007b5c4575e (diff) | |
| download | perl-3e3baf6d63945cb64e829d6e5c70a7d00f3d3d03.tar.gz | |
[differences between cumulative patch application and perl5.004_01]perl-5.004_01
[editor's note: The changes between this and 5.004 were processed from
the m1t2 release, which was a bad idea as it was the _01 release which
had the final corrected attributions. The differences between the
various m*t* releases do that; I considered it most valuable just to
look at the _NN releases. Many patches have been separated out and/or
applied from the p5p archives nonetheless.]
Diffstat (limited to 'lib/ExtUtils/Mksymlists.pm')
| -rw-r--r-- | lib/ExtUtils/Mksymlists.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/ExtUtils/Mksymlists.pm b/lib/ExtUtils/Mksymlists.pm index fd609152c3..73dc81d069 100644 --- a/lib/ExtUtils/Mksymlists.pm +++ b/lib/ExtUtils/Mksymlists.pm @@ -97,6 +97,7 @@ while (($name, $exp)= each %{$data->{IMPORTS}}) { sub _write_win32 { my($data) = @_; + require Config; if (not $data->{DLBASE}) { ($data->{DLBASE} = $data->{NAME}) =~ s/.*:://; $data->{DLBASE} = substr($data->{DLBASE},0,7) . '_'; @@ -109,6 +110,10 @@ sub _write_win32 { print DEF "CODE LOADONCALL\n"; print DEF "DATA LOADONCALL NONSHARED MULTIPLE\n"; print DEF "EXPORTS\n "; + if ($Config::Config{'cc'} =~ /^bcc/i) { + for (@{$data->{DL_VARS}}) { $_ = "$_ = _$_" } + for (@{$data->{FUNCLIST}}) { $_ = "$_ = _$_" } + } print DEF join("\n ",@{$data->{DL_VARS}}, "\n") if @{$data->{DL_VARS}}; print DEF join("\n ",@{$data->{FUNCLIST}}, "\n") if @{$data->{FUNCLIST}}; if (%{$data->{IMPORTS}}) { |