lib/perl5/5.8.8/ExtUtils/MM_DOS.pm

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