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