Pass CPPFLAGS and LDFLAGS to Makefile.PL and Build.PL

[debhelper.git] / Debian / Debhelper / Buildsystem / perl_makemaker.pm

diff --git a/Debian/Debhelper/Buildsystem/perl_makemaker.pm b/Debian/Debhelper/Buildsystem/perl_makemaker.pm
index 1a01c34ed98e87db9999ba30f192316cb91bb799..342e0eb8e1e0026b3d6307e0181824b54169fd74 100644 (file)
--- a/Debian/Debhelper/Buildsystem/perl_makemaker.pm
+++ b/Debian/Debhelper/Buildsystem/perl_makemaker.pm
@@ -1,4 +1,4 @@
-# A buildsystem plugin for handling Perl MakeMaker based projects.
+# A debhelper build system class for handling Perl MakeMaker based projects.
 #
 # Copyright: © 2008-2009 Joey Hess
 #            © 2008-2009 Modestas Vainius
@@ -7,8 +7,9 @@
 package Debian::Debhelper::Buildsystem::perl_makemaker;
 
 use strict;
-use Debian::Debhelper::Dh_Lib;
+use Debian::Debhelper::Dh_Lib qw(compat);
 use base 'Debian::Debhelper::Buildsystem::makefile';
+use Config;
 
 sub DESCRIPTION {
        "Perl ExtUtils::MakeMaker (Makefile.PL)"
@@ -16,15 +17,18 @@ sub DESCRIPTION {
 
 sub check_auto_buildable {
        my $this=shift;
-       my ($action)=@_;
+       my ($step)=@_;
 
-       # Handles configure, install; the rest - next class
-       if ($action eq "install" || $action eq "configure") {
-               return -e "Makefile.PL";
-       }
-       else {
-               return 0;
+       # Handles everything if Makefile.PL exists. Otherwise - next class.
+       if (-e $this->get_sourcepath("Makefile.PL")) {
+               if ($step eq "configure") {
+                       return 1;
+               }
+               else {
+                       return $this->SUPER::check_auto_buildable(@_);
+               }
        }
+       return 0;
 }
 
 sub new {
@@ -36,17 +40,41 @@ sub new {
 
 sub configure {
        my $this=shift;
+       my @flags;
        # If set to a true value then MakeMaker's prompt function will
        # # always return the default without waiting for user input.
        $ENV{PERL_MM_USE_DEFAULT}=1;
-       doit("perl", "Makefile.PL", "INSTALLDIRS=vendor",
-               "create_packlist=0", @_);
+       # This prevents  Module::Install from interactive behavior.
+       $ENV{PERL_AUTOINSTALL}="--skipdeps";
+
+       if ($ENV{CFLAGS} && ! compat(8)) {
+               push @flags, "OPTIMIZE=$ENV{CFLAGS} $ENV{CPPFLAGS}";
+       }
+       if ($ENV{LDFLAGS} && ! compat(8)) {
+               push @flags, "LD=$Config{ld} $ENV{LDFLAGS}";
+       }
+
+       $this->doit_in_sourcedir("perl", "Makefile.PL", "INSTALLDIRS=vendor",
+               # if perl_build is not tested first, need to pass packlist
+               # option to handle fallthrough case
+               (compat(7) ? "create_packlist=0" : ()),
+               @flags, @_);
 }
 
 sub install {
        my $this=shift;
        my $destdir=shift;
-       $this->SUPER::install($destdir, "PREFIX=/usr", @_);
+
+       # Special case for Makefile.PL that uses
+       # Module::Build::Compat. PREFIX should not be passed
+       # for those; it already installs into /usr by default.
+       my $makefile=$this->get_sourcepath("Makefile");
+       if (system(qq{grep -q "generated automatically by MakeMaker" $makefile}) != 0) {
+               $this->SUPER::install($destdir, @_);
+       }
+       else {
+               $this->SUPER::install($destdir, "PREFIX=/usr", @_);
+       }
 }
 
-1;
+1