lib/perl5/5.8.8/ExtUtils/MM_UWIN.pm

   1 package ExtUtils::MM_UWIN;
   2
   3 use strict;
   4 use vars qw($VERSION @ISA);
   5 $VERSION = 0.02;
   6
   7 require ExtUtils::MM_Unix;
   8 @ISA = qw(ExtUtils::MM_Unix);
   9
  10
  11 =head1 NAME
  12
  13 ExtUtils::MM_UWIN - U/WIN specific subclass of ExtUtils::MM_Unix
  14
  15 =head1 SYNOPSIS
  16
  17   Don't use this module directly.
  18   Use ExtUtils::MM and let it choose.
  19
  20 =head1 DESCRIPTION
  21
  22 This is a subclass of ExtUtils::MM_Unix which contains functionality for
  23 the AT&T U/WIN UNIX on Windows environment.
  24
  25 Unless otherwise stated it works just like ExtUtils::MM_Unix
  26
  27 =head2 Overridden methods
  28
  29 =over 4
  30
  31 =item os_flavor
  32
  33 In addition to being Unix, we're U/WIN.
  34
  35 =cut
  36
  37 sub os_flavor {
  38     return('Unix', 'U/WIN');
  39 }
  40
  41
  42 =item B<replace_manpage_separator>
  43
  44 =cut
  45
  46 sub replace_manpage_separator {
  47     my($self, $man) = @_;
  48
  49     $man =~ s,/+,.,g;
  50     return $man;
  51 }
  52
  53 =back
  54
  55 =head1 AUTHOR
  56
  57 Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix
  58
  59 =head1 SEE ALSO
  60
  61 L<ExtUtils::MM_Win32>, L<ExtUtils::MakeMaker>
  62
  63 =cut
  64
  65 1;