This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
af80bde8ad3c959b70bab30cdb2b5657fdcba993
[perl5.git] / lib / ExtUtils / MM_DOS.pm
1 package ExtUtils::MM_DOS;
2
3 use strict;
4
5 our $VERSION = 6.53_03;
6
7 require ExtUtils::MM_Any;
8 require ExtUtils::MM_Unix;
9 our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
10
11
12 =head1 NAME
13
14 ExtUtils::MM_DOS - DOS specific subclass of ExtUtils::MM_Unix
15
16 =head1 SYNOPSIS
17
18   Don't use this module directly.
19   Use ExtUtils::MM and let it choose.
20
21 =head1 DESCRIPTION
22
23 This is a subclass of ExtUtils::MM_Unix which contains functionality
24 for DOS.
25
26 Unless otherwise stated, it works just like ExtUtils::MM_Unix
27
28 =head2 Overridden methods
29
30 =over 4
31
32 =item os_flavor
33
34 =cut
35
36 sub os_flavor {
37     return('DOS');
38 }
39
40 =item B<replace_manpage_separator>
41
42 Generates Foo__Bar.3 style man page names
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_Unix>, L<ExtUtils::MakeMaker>
62
63 =cut
64
65 1;