diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/Master/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm b/Master/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm index 19e462de593..faaf219ecba 100644 --- a/Master/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm +++ b/Master/tlpkg/tlperl/lib/ExtUtils/MM_Win32.pm @@ -27,7 +27,7 @@ use ExtUtils::MakeMaker qw( neatvalue ); require ExtUtils::MM_Any; require ExtUtils::MM_Unix; our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix ); -our $VERSION = '6.56'; +our $VERSION = '6.57_05'; $ENV{EMXSHELL} = 'sh'; # to run `commands` @@ -289,17 +289,6 @@ sub dynamic_lib { my($ldfrom) = '$(LDFROM)'; my(@m); -# 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) { - my $dllname = $self->{BASEEXT} . "." . $self->{DLEXT}; - $dllname =~ /(....)(.{0,4})/; - my $baseaddr = unpack("n", $1 ^ $2); - $otherldflags .= sprintf("-Wl,--image-base,0x%x0000 ", $baseaddr); - } - push(@m,' # This section creates the dynamically loadable $(INST_DYNAMIC) # from $(OBJECT) and possibly $(MYEXTLIB). |