Commit | Line | Data |
---|---|---|
7292dc67 RGS |
1 | package ExtUtils::MM_QNX; |
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_QNX - QNX 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 | QNX. | |
24 | ||
25 | Unless otherwise stated it works just like ExtUtils::MM_Unix | |
26 | ||
27 | =head2 Overridden methods | |
28 | ||
29 | =head3 extra_clean_files | |
30 | ||
31 | Add .err files corresponding to each .c file. | |
32 | ||
33 | =cut | |
34 | ||
35 | sub extra_clean_files { | |
36 | my $self = shift; | |
37 | ||
38 | my @errfiles = @{$self->{C}}; | |
39 | for ( @errfiles ) { | |
40 | s/.c$/.err/; | |
41 | } | |
42 | ||
43 | return( @errfiles, 'perlmain.err' ); | |
44 | } | |
45 | ||
46 | ||
47 | =head1 AUTHOR | |
48 | ||
49 | Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix | |
50 | ||
51 | =head1 SEE ALSO | |
52 | ||
53 | L<ExtUtils::MakeMaker> | |
54 | ||
55 | =cut | |
56 | ||
57 | ||
58 | 1; |