1 package platform
::mingw
;
9 require platform::Unix;
10 @ISA = qw(platform::Unix);
12 # Assume someone set @INC right before loading this module
20 sub shlibext
{ '.dll' }
21 sub shlibextimport
{ $target{shared_import_extension
} || '.dll.a' }
22 sub shlibextsimple
{ undef }
23 sub makedepprog
{ $disabled{makedepend
} ?
undef : $config{makedepprog
} }
25 (my $sover_filename = $config{shlib_version
}) =~ s
|\
.|_
|g
;
26 sub shlib_version_as_filename
{
27 return $sover_filename;
30 return platform
::BASE
::__concat
(platform
::BASE
->sharedname($_[1]),
32 $_[0]->shlib_version_as_filename(),
33 ($config{target
} eq "mingw64"
37 # With Mingw and other DLL producers, there isn't really any "simpler"
38 # shared library name. However, there is a static import library, so
39 # we return that instead.
40 sub sharedlib_simple
{
41 return platform
::BASE
::__concat
(platform
::BASE
->sharedname($_[1]),
42 $_[0]->shlibextimport());