1package platform::Windows::MSVC;
2
3use strict;
4use warnings;
5use Carp;
6
7use vars qw(@ISA);
8
9require platform::Windows;
10@ISA = qw(platform::Windows);
11
12# Assume someone set @INC right before loading this module
13use configdata;
14
15sub pdbext              { '.pdb' }
16
17# It's possible that this variant of |sharedname| should be in Windows.pm.
18# However, this variant was VC only in 1.1.1, so we maintain that here until
19# further notice.
20sub sharedname {
21    return platform::BASE::__concat(platform::BASE->sharedname($_[1]),
22                                    "-",
23                                    $_[0]->shlib_version_as_filename(),
24                                    ($target{multilib} // '' ),
25                                    ($_[0]->shlibvariant() // ''));
26}
27
28sub staticlibpdb {
29    return platform::BASE::__concat($_[0]->staticname($_[1]), $_[0]->pdbext());
30}
31
32sub sharedlibpdb {
33    return platform::BASE::__concat($_[0]->sharedname($_[1]), $_[0]->pdbext());
34}
35
36sub dsopdb {
37    return platform::BASE::__concat($_[0]->dsoname($_[1]), $_[0]->pdbext());
38}
39
40sub binpdb {
41    return platform::BASE::__concat($_[0]->binname($_[1]), $_[0]->pdbext());
42}
43
441;
45