Cygwin.pm 365 B

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