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