summaryrefslogtreecommitdiff
path: root/lib/ExtUtils/MM_Win32.pm
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-12-28 18:40:19 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-12-28 18:40:19 +0000
commit5db1039675bdeda8d9e4e8a1462abefb8ede0419 (patch)
tree7c515c7e6015a6511561b5fe09ec25d580a66ac4 /lib/ExtUtils/MM_Win32.pm
parent33079e286d5308155d46cf4f82350ddbb5b5ad95 (diff)
downloadperl-5db1039675bdeda8d9e4e8a1462abefb8ede0419.tar.gz
Win9x + GCC update from Benjamin Stuhl <sho_pi@hotmail.com>
p4raw-id: //depot/perl@4729
Diffstat (limited to 'lib/ExtUtils/MM_Win32.pm')
-rw-r--r--lib/ExtUtils/MM_Win32.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/ExtUtils/MM_Win32.pm b/lib/ExtUtils/MM_Win32.pm
index ab8570d702..499b57c5ab 100644
--- a/lib/ExtUtils/MM_Win32.pm
+++ b/lib/ExtUtils/MM_Win32.pm
@@ -485,13 +485,11 @@ sub dynamic_lib {
my($ldfrom) = '$(LDFROM)';
my(@m);
-# several things for GCC/Mingw32:
-# 1. use correct CRT startup objects (possibly unnecessary)
-# 2. try to overcome non-relocateable-DLL problems by generating
+# one thing for GCC/Mingw32:
+# we try to overcome non-relocateable-DLL problems by generating
# a (hopefully unique) image-base from the dll's name
# -- BKS, 10-19-1999
if ($GCC) {
- $otherldflags .= ' -L$(PERL_ARCHIVE:d) -nostdlib $(PERL_ARCHIVE:d)gdllcrt0.o ';
my $dllname = $self->{BASEEXT} . "." . $self->{DLEXT};
$dllname =~ /(....)(.{0,4})/;
my $baseaddr = unpack("n", $1 ^ $2);