Gecko [ primetaxinc.net ]

/ usr / share / perl5 / vendor_perl / ExtUtils / [ HOME SHELL ]

Name	Size	Permission	Action
CBuilder	[ DIR ]	drwxr-xr-x
Command	[ DIR ]	drwxr-xr-x
Liblist	[ DIR ]	drwxr-xr-x
MM	[ DIR ]	drwxr-xr-x
MakeMaker	[ DIR ]	drwxr-xr-x
ParseXS	[ DIR ]	drwxr-xr-x
Typemaps	[ DIR ]	drwxr-xr-x
CBuilder.pm	8.67 KB	-rw-r--r--
Command.pm	7.62 KB	-rw-r--r--
Install.pm	40.06 KB	-rw-r--r--
Installed.pm	14.03 KB	-rw-r--r--
Liblist.pm	9.51 KB	-rw-r--r--
MANIFEST.SKIP	971 B	-rw-r--r--
MM.pm	2.09 KB	-rw-r--r--
MM_AIX.pm	1.37 KB	-rw-r--r--
MM_Any.pm	80.81 KB	-rw-r--r--
MM_BeOS.pm	1.02 KB	-rw-r--r--
MM_Cygwin.pm	3.99 KB	-rw-r--r--
MM_DOS.pm	1.03 KB	-rw-r--r--
MM_Darwin.pm	936 B	-rw-r--r--
MM_MacOS.pm	892 B	-rw-r--r--
MM_NW5.pm	5.34 KB	-rw-r--r--
MM_OS2.pm	3.14 KB	-rw-r--r--
MM_QNX.pm	894 B	-rw-r--r--
MM_UWIN.pm	981 B	-rw-r--r--
MM_Unix.pm	108.47 KB	-rw-r--r--
MM_VMS.pm	66.52 KB	-rw-r--r--
MM_VOS.pm	749 B	-rw-r--r--
MM_Win32.pm	14.06 KB	-rw-r--r--
MM_Win95.pm	1.25 KB	-rw-r--r--
MY.pm	678 B	-rw-r--r--
MakeMaker.pm	107.94 KB	-rw-r--r--
Manifest.pm	22.89 KB	-rw-r--r--
Mkbootstrap.pm	3.23 KB	-rw-r--r--
Mksymlists.pm	10.74 KB	-rw-r--r--
Packlist.pm	8.36 KB	-rw-r--r--
ParseXS.pm	65.01 KB	-rw-r--r--
ParseXS.pod	4.3 KB	-rw-r--r--
Typemaps.pm	26.17 KB	-rw-r--r--
testlib.pm	916 B	-rw-r--r--
xsubpp	4.96 KB	-rwxr-xr-x

Code Editor : MM_DOS.pm

package ExtUtils::MM_DOS;

use strict;

our $VERSION = '7.34';
$VERSION = eval $VERSION;

require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );

=head1 NAME

ExtUtils::MM_DOS - DOS specific subclass of ExtUtils::MM_Unix

=head1 SYNOPSIS

Don't use this module directly.
  Use ExtUtils::MM and let it choose.

=head1 DESCRIPTION

This is a subclass of ExtUtils::MM_Unix which contains functionality
for DOS.

Unless otherwise stated, it works just like ExtUtils::MM_Unix

=head2 Overridden methods

=over 4

=item os_flavor

=cut

sub os_flavor {
    return('DOS');
}

=item B<replace_manpage_separator>

Generates Foo__Bar.3 style man page names

=cut

sub replace_manpage_separator {
    my($self, $man) = @_;

$man =~ s,/+,__,g;
    return $man;
}

=item xs_static_lib_is_xs

=cut

sub xs_static_lib_is_xs {
    return 1;
}

=back

=head1 AUTHOR

Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix

=head1 SEE ALSO

L<ExtUtils::MM_Unix>, L<ExtUtils::MakeMaker>

=cut

1;