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