/usr/share/perl5/Module/Install/Compiler.pm is in libmodule-install-perl 1.04-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 | package Module::Install::Compiler;
use strict;
use File::Basename ();
use Module::Install::Base ();
use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
$VERSION = '1.04';
@ISA = 'Module::Install::Base';
$ISCORE = 1;
}
sub ppport {
my $self = shift;
if ( $self->is_admin ) {
return $self->admin->ppport(@_);
} else {
# Fallback to just a check
my $file = shift || 'ppport.h';
unless ( -f $file ) {
die "Packaging error, $file is missing";
}
}
}
sub cc_files {
require Config;
my $self = shift;
$self->makemaker_args(
OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
);
}
sub cc_inc_paths {
my $self = shift;
$self->makemaker_args(
INC => join ' ', map { "-I$_" } @_
);
}
sub cc_lib_paths {
my $self = shift;
$self->makemaker_args(
LIBS => join ' ', map { "-L$_" } @_
);
}
sub cc_lib_links {
my $self = shift;
$self->makemaker_args(
LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
);
}
sub cc_optimize_flags {
my $self = shift;
$self->makemaker_args(
OPTIMIZE => join ' ', @_
);
}
1;
__END__
=pod
=head1 NAME
Module::Install::Compiler - Commands for interacting with the C compiler
=head1 SYNOPSIS
To be completed
=head1 DESCRIPTION
Many Perl modules that contains C and XS code have fiendishly complex
F<Makefile.PL> files, because L<ExtUtils::MakeMaker> doesn't itself provide
a huge amount of assistance and automation in this area.
B<Module::Install::Compiler> provides a number of commands that take care
of common utility tasks, and try to take some of intricacy out of creating
C and XS modules.
=head1 COMMANDS
To be completed
=head1 TO DO
The current implementation is relatively fragile and minimalistic.
It only handles some very basic wrapper around L<ExtUtils::MakeMaker>.
It is currently undergoing extensive refactoring to provide a more
generic compiler flag generation capability. This may take some time,
and if anyone who maintains a Perl module that makes use of the compiler
would like to help out, your assistance would be greatly appreciated.
=head1 SEE ALSO
L<Module::Install>, L<ExtUtils::MakeMaker>
=head1 AUTHORS
Refactored by Adam Kennedy E<lt>adamk@cpan.orgE<gt>
Mostly by Audrey Tang E<lt>autrijus@autrijus.orgE<gt>
Based on original works by Brian Ingerson E<lt>ingy@cpan.orgE<gt>
=head1 COPYRIGHT
Copyright 2002, 2003, 2004, 2006 by Adam Kennedy, Audrey Tang, Brian Ingerson.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See L<http://www.perl.com/perl/misc/Artistic.html>
=cut
|