1*e0c4386eSCy Schubertpackage platform::Cygwin; 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::mingw; 10*e0c4386eSCy Schubert@ISA = qw(platform::mingw); 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 sharedname { 16*e0c4386eSCy Schubert my $class = shift; 17*e0c4386eSCy Schubert my $lib = platform::mingw->sharedname(@_); 18*e0c4386eSCy Schubert $lib =~ s|^lib|cyg| if defined $lib; 19*e0c4386eSCy Schubert return $lib; 20*e0c4386eSCy Schubert} 21*e0c4386eSCy Schubert 22*e0c4386eSCy Schubert1; 23