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