1 package ExtUtils::MM_Cygwin;
4 use vars qw($VERSION @ISA);
9 require ExtUtils::MM_Any;
10 require ExtUtils::MM_Unix;
11 @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
18 ExtUtils::MM_Cygwin - methods to override UN*X behaviour in ExtUtils::MakeMaker
22 use ExtUtils::MM_Cygwin; # Done internally by ExtUtils::MakeMaker if needed
26 See ExtUtils::MM_Unix for a documentation of the methods provided there.
32 if configured for dynamic loading, triggers #define EXT in EXTERN.h
37 my($self,$libperl)=@_;
38 return $self->{CFLAGS} if $self->{CFLAGS};
39 return '' unless $self->needs_linking();
41 my $base = $self->SUPER::cflags($libperl);
42 foreach (split /\n/, $base) {
43 /^(\S*)\s*=\s*(\S*)$/ and $self->{$1} = $2;
45 $self->{CCFLAGS} .= " -DUSEIMPORTLIB" if ($Config{useshrplib} eq 'true');
47 return $self->{CFLAGS} = qq{
48 CCFLAGS = $self->{CCFLAGS}
49 OPTIMIZE = $self->{OPTIMIZE}
50 PERLTYPE = $self->{PERLTYPE}
56 =item replace_manpage_separator (o)
58 replaces strings '::' with '.' in MAN*POD man page names
62 sub replace_manpage_separator {
77 if ($Config{useshrplib} eq 'true') {
78 my $libperl = '$(PERL_INC)' .'/'. "$Config{libperl}";
80 $libperl =~ s/a$/dll.a/;
82 $self->{PERL_ARCHIVE} = $libperl;
84 $self->{PERL_ARCHIVE} =
85 '$(PERL_INC)' .'/'. ("$Config{libperl}" or "libperl.a");
88 $self->{PERL_ARCHIVE_AFTER} ||= '';
89 $self->{EXPORT_LIST} ||= '';