1package platform::Cygwin; 2 3use strict; 4use warnings; 5use Carp; 6 7use vars qw(@ISA); 8 9require platform::mingw; 10@ISA = qw(platform::mingw); 11 12# Assume someone set @INC right before loading this module 13use configdata; 14 15sub sharedname { 16 my $class = shift; 17 my $lib = platform::mingw->sharedname(@_); 18 $lib =~ s|^lib|cyg| if defined $lib; 19 return $lib; 20} 21 221; 23