lib/perl5/5.8.8/ExtUtils/MM_Msys.pm

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