1 package platform::Windows;
9 require platform::BASE;
10 @ISA = qw(platform::BASE);
12 # Assume someone set @INC right before loading this module
17 sub shlibext { '.dll' }
24 # Other extra that aren't defined in platform::BASE
26 sub shlibextimport { '.lib' }
27 sub shlibvariant { $target{shlib_variant} || '' }
30 # Non-installed libraries are *always* static, and their names remain
31 # the same, except for the mandatory extension
32 my $in_libname = platform::BASE->staticname($_[1]);
34 unless ( grep { platform::BASE->staticname($_) eq $in_libname }
35 @{$unified_info{install}->{libraries}} );
37 # To make sure not to clash with an import library, we make the static
38 # variant of our installed libraries get '_static' added to their names.
39 return platform::BASE->staticname($_[1])
40 . ($disabled{shared} ? '' : '_static');
43 # To mark forward compatibility, we include the OpenSSL major release version
44 # number in the installed shared library names.
45 (my $sover_filename = $config{shlib_version}) =~ s|\.|_|g;
46 sub shlib_version_as_filename {
47 return $sover_filename
50 return platform::BASE::__concat(platform::BASE->sharedname($_[1]),
52 $_[0]->shlib_version_as_filename(),
53 ($_[0]->shlibvariant() // ''));
56 sub sharedname_import {
57 return platform::BASE::__isshared($_[1]) ? $_[1] : undef;
60 sub sharedlib_import {
61 return platform::BASE::__concat($_[0]->sharedname_import($_[1]),
62 $_[0]->shlibextimport());