Home | History | Annotate | Line # | Download | only in platform
      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