X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Makefile.PL;h=f2df41308238a92cd83fc91f0896a59b73e6f93f;hb=acae07cb4264d1039a86aa31854cca2ce37382f1;hp=62522ed70ce9a569008359466ec6adbced371ca4;hpb=41a4b907f4846f2d35b170f517fb83ceb13f298c;p=perl%2Fmodules%2FTest-Valgrind.git

diff --git a/Makefile.PL b/Makefile.PL
index 62522ed..f2df413 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -1,31 +1,68 @@
+use 5.006;
+
 use strict;
 use warnings;
 use ExtUtils::MakeMaker;
 
-my $has_vg = 0;
+BEGIN {
+ eval { require Config };
+ die 'OS unsupported' if $@;
+ Config->import(qw/%Config/);
+ eval { require File::Spec };
+ die 'OS unsupported' if $@;
+}
+
+my $vg;
 print 'Checking for valgrind >= 3.1.0 in PATH... ';
 for (split /:/, $ENV{PATH}) {
- my $vg = $_ . '/valgrind';
- if (-x $vg) {
-  my $ver = qx/$vg --version/;
+ $_ .= '/valgrind';
+ if (-x) {
+  my $ver = qx/$_ --version/;
   if ($ver =~ s/^valgrind-//) {
    $ver = join '', map chr, split /\./, $ver;
    if ($ver ge v3.1.0) {
-    print "yes, $vg\n";
-    $has_vg = 1;
+    print "$_\n";
+    $vg = $_;
     last;
    }
   }
  }
 }
-if (!$has_vg) {
+if (!$vg) {
  print "no\n";
  die 'OS unsupported';
 }
 
+# Inspired from Module::Install::Can
+print "Checking for a valid C compiler in the PATH... ";
+my @ccs = ($Config{cc});
+unshift @ccs, $ENV{CC} if $ENV{CC};
+my $cc;
+CC:
+for my $c (@ccs) {
+ for my $dir (split /$Config{path_sep}/, $ENV{PATH}) {
+  my $abs = File::Spec->catfile($dir, $c);
+  if (-x $abs or MM->maybe_command($abs)) {
+   $cc = $c;
+   last CC;
+  }
+ }
+}
+my (@C);
+if ($cc) {
+ my $xs = 'Valgrind.xs';
+ (my $c = $xs) =~ s/\.xs$/.c/;
+ push @C, $c;
+ print $cc, "\n";
+} else {
+ print "none\n";
+}
+
 my $BUILD_REQUIRES = {
  'ExtUtils::MakeMaker' => 0,
- 'Test::More'          => 0
+ 'File::Copy'          => 0,
+ 'Test::More'          => 0,
+ 'XSLoader'            => 0
 };
 
 sub build_req {
@@ -38,7 +75,17 @@ sub build_req {
  return $build_req;
 }
 
-my $supp = 'Test/Valgrind/perlTestValgrind.supp';
+my $supp = 'lib/Test/Valgrind/Suppressions';
+open my $tpl, '<', $supp . '.tpl' or die "open($supp.tpl): $!";
+open my $out, '>', $supp . '.pm'  or die "open($supp.pm): $!";
+while (<$tpl>) {
+ s/(VG_PATH\s*=>\s*)undef/$1'$vg'/g;
+ print $out $_;
+}
+close $out;
+close $tpl;
+
+$supp = 'Test/Valgrind/perlTestValgrind.supp';
 
 WriteMakefile(
     NAME          => 'Test::Valgrind',
@@ -46,26 +93,59 @@ WriteMakefile(
     LICENSE       => 'perl',
     VERSION_FROM  => 'lib/Test/Valgrind.pm',
     ABSTRACT_FROM => 'lib/Test/Valgrind.pm',
-    PL_FILES      => { './Gensupp.PL' => 'lib/' . $supp },
+    PL_FILES      => {
+        './Gensupp.PL'    => 'blib/archpub/' . $supp,
+        './FixInstall.PL' => 'Makefile.bak',
+    },
+    OPTIMIZE      => '-g',
     PM            => {
         'lib/Test/Valgrind.pm'
         => '$(INST_LIB)/Test/Valgrind.pm',
         'lib/Test/Valgrind/Suppressions.pm'
-        => '$(INST_ARCHLIB)/Test/Valgrind/Suppressions.pm',
-        'lib/' . $supp => '$(INST_ARCHLIB)/' . $supp,
+        => 'blib/archpub/Test/Valgrind/Suppressions.pm',
     },
+    C             => \@C,
     PREREQ_PM     => {
-        'Carp'       => 0,
-        'Exporter'   => 0,
-        'POSIX'      => 0,
-        'Test::More' => 0,
+        'Carp'                  => 0,
+        'Exporter'              => 0,
+        'Fcntl'                 => 0,
+        'POSIX'                 => 0,
+        'Perl::Destruct::Level' => 0,
+        'Test::Builder'         => 0,
     },
     dist          => {
-        PREOP      => 'pod2text lib/Test/Valgrind.pm > $(DISTVNAME)/README; '
+        PREOP      => "touch lib/$supp; "
+                      . 'pod2text lib/Test/Valgrind.pm > $(DISTVNAME)/README; '
                       . build_req,
         COMPRESS   => 'gzip -9f', SUFFIX => 'gz',
     },
-    clean         => { FILES => "Test-Valgrind-* lib/$supp *.gcov *.gcda *.gcno cover_db" },
+    clean         => { FILES => "Test-Valgrind-* lib/$supp Makefile.bak *.gcov *.gcda *.gcno cover_db Debian_CPANTS.txt" },
 );
 1 while unlink 'lib/' . $supp;
 
+package MY;
+
+sub dist_core {
+ my $dist = shift->SUPER::dist_core(@_);
+ $dist =~ s/^(\s*dist\s*:+\s*)/$1testvg_dist /m;
+ return <<DISTCORE . $dist;
+testvg_dist :
+	\$(CP) lib/Test/Valgrind/Suppressions.{tpl,pm}
+	\$(RM) lib/$supp
+	\$(TOUCH) lib/$supp
+DISTCORE
+}
+
+sub test {
+ my $test = shift->SUPER::test(@_);
+ my ($target) = $test =~ /^\s*(test\s*:+)/m;
+ return "$target Makefile.bak blib/archpub/$supp\n$test";
+}
+
+sub postamble {
+ return <<POSTAMBLE;
+clean ::
+	\$(CP) lib/Test/Valgrind/Suppressions.{tpl,pm}
+	\$(TOUCH) lib/$supp
+POSTAMBLE
+}