Configurations/platform/Cygwin.pm

   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;