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