mirror of
https://github.com/openssl/openssl.git
synced 2025-01-30 14:01:55 +08:00
23 lines
365 B
Perl
23 lines
365 B
Perl
|
package platform::Cygwin;
|
||
|
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
use Carp;
|
||
|
|
||
|
use vars qw(@ISA);
|
||
|
|
||
|
require platform::mingw;
|
||
|
@ISA = qw(platform::mingw);
|
||
|
|
||
|
# Assume someone set @INC right before loading this module
|
||
|
use configdata;
|
||
|
|
||
|
sub sharedname {
|
||
|
my $class = shift;
|
||
|
my $lib = platform::mingw->sharedname(@_);
|
||
|
$lib =~ s|^lib|cyg| if defined $lib;
|
||
|
return $lib;
|
||
|
}
|
||
|
|
||
|
1;
|