Move ExtUtils::MakeMaker from ext/ to cpan/
[perl.git] / cpan / ExtUtils-MakeMaker / lib / ExtUtils / MM_Cygwin.pm
1 package ExtUtils::MM_Cygwin;
2
3 use strict;
4
5 use ExtUtils::MakeMaker::Config;
6 use File::Spec;
7
8 require ExtUtils::MM_Unix;
9 require ExtUtils::MM_Win32;
10 our @ISA = qw( ExtUtils::MM_Unix );
11
12 our $VERSION = '6.55_02';
13
14
15 =head1 NAME
16
17 ExtUtils::MM_Cygwin - methods to override UN*X behaviour in ExtUtils::MakeMaker
18
19 =head1 SYNOPSIS
20
21  use ExtUtils::MM_Cygwin; # Done internally by ExtUtils::MakeMaker if needed
22
23 =head1 DESCRIPTION
24
25 See ExtUtils::MM_Unix for a documentation of the methods provided there.
26
27 =over 4
28
29 =item os_flavor
30
31 We're Unix and Cygwin.
32
33 =cut
34
35 sub os_flavor {
36     return('Unix', 'Cygwin');
37 }
38
39 =item cflags
40
41 if configured for dynamic loading, triggers #define EXT in EXTERN.h
42
43 =cut
44
45 sub cflags {
46     my($self,$libperl)=@_;
47     return $self->{CFLAGS} if $self->{CFLAGS};
48     return '' unless $self->needs_linking();
49
50     my $base = $self->SUPER::cflags($libperl);
51     foreach (split /\n/, $base) {
52         /^(\S*)\s*=\s*(\S*)$/ and $self->{$1} = $2;
53     };
54     $self->{CCFLAGS} .= " -DUSEIMPORTLIB" if ($Config{useshrplib} eq 'true');
55
56     return $self->{CFLAGS} = qq{
57 CCFLAGS = $self->{CCFLAGS}
58 OPTIMIZE = $self->{OPTIMIZE}
59 PERLTYPE = $self->{PERLTYPE}
60 };
61
62 }
63
64
65 =item replace_manpage_separator
66
67 replaces strings '::' with '.' in MAN*POD man page names
68
69 =cut
70
71 sub replace_manpage_separator {
72     my($self, $man) = @_;
73     $man =~ s{/+}{.}g;
74     return $man;
75 }
76
77 =item init_linker
78
79 points to libperl.a
80
81 =cut
82
83 sub init_linker {
84     my $self = shift;
85
86     if ($Config{useshrplib} eq 'true') {
87         my $libperl = '$(PERL_INC)' .'/'. "$Config{libperl}";
88         if( $] >= 5.006002 ) {
89             $libperl =~ s/a$/dll.a/;
90         }
91         $self->{PERL_ARCHIVE} = $libperl;
92     } else {
93         $self->{PERL_ARCHIVE} = 
94           '$(PERL_INC)' .'/'. ("$Config{libperl}" or "libperl.a");
95     }
96
97     $self->{PERL_ARCHIVE_AFTER} ||= '';
98     $self->{EXPORT_LIST}  ||= '';
99 }
100
101 =item maybe_command
102
103 If our path begins with F</cygdrive/> then we use C<ExtUtils::MM_Win32>
104 to determine if it may be a command.  Otherwise we use the tests
105 from C<ExtUtils::MM_Unix>.
106
107 =cut
108
109 sub maybe_command {
110     my ($self, $file) = @_;
111
112     if ($file =~ m{^/cygdrive/}i) {
113         return ExtUtils::MM_Win32->maybe_command($file);
114     }
115
116     return $self->SUPER::maybe_command($file);
117 }
118
119 =back
120
121 =cut
122
123 1;