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