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());