git.maemo.org Git - dh-make-perl/blob - dev/i386/libnet-ssleay-perl/libnet-ssleay-perl-1.35/inc/Module/Install/Compiler.pm

   1 #line 1
   2 package Module::Install::Compiler;
   3
   4 use strict;
   5 use Module::Install::Base;
   6 use File::Basename ();
   7
   8 use vars qw{$VERSION $ISCORE @ISA};
   9 BEGIN {
  10         $VERSION = '0.76';
  11         $ISCORE  = 1;
  12         @ISA     = qw{Module::Install::Base};
  13 }
  14
  15 sub ppport {
  16         my $self = shift;
  17         if ( $self->is_admin ) {
  18                 return $self->admin->ppport(@_);
  19         } else {
  20                 # Fallback to just a check
  21                 my $file = shift || 'ppport.h';
  22                 unless ( -f $file ) {
  23                         die "Packaging error, $file is missing";
  24                 }
  25         }
  26 }
  27
  28 sub cc_files {
  29         require Config;
  30         my $self = shift;
  31         $self->makemaker_args(
  32                 OBJECT => join ' ', map { substr($_, 0, -2) . $Config::Config{_o} } @_
  33         );
  34 }
  35
  36 sub cc_inc_paths {
  37         my $self = shift;
  38         $self->makemaker_args(
  39                 INC => join ' ', map { "-I$_" } @_
  40         );
  41 }
  42
  43 sub cc_lib_paths {
  44         my $self = shift;
  45         $self->makemaker_args(
  46                 LIBS => join ' ', map { "-L$_" } @_
  47         );
  48 }
  49
  50 sub cc_lib_links {
  51         my $self = shift;
  52         $self->makemaker_args(
  53                 LIBS => join ' ', $self->makemaker_args->{LIBS}, map { "-l$_" } @_
  54         );
  55 }
  56
  57 sub cc_optimize_flags {
  58         my $self = shift;
  59         $self->makemaker_args(
  60                 OPTIMIZE => join ' ', @_
  61         );
  62 }
  63
  64 1;
  65
  66 __END__
  67
  68 #line 123