+use 5.006;
+
use strict;
use warnings;
use ExtUtils::MakeMaker;
-my $has_vg = 0;
-my $vg;
-print 'Checking for valgrind >= 3.1.0 in PATH... ';
-for (split /:/, $ENV{PATH}) {
- $vg = $_ . '/valgrind';
- if (-x $vg) {
- my $ver = qx/$vg --version/;
- if ($ver =~ s/^valgrind-//) {
- $ver = join '', map chr, split /\./, $ver;
- if ($ver ge v3.1.0) {
- print "yes, $vg\n";
- $has_vg = 1;
- last;
- }
- }
- }
+my $has_version_pm;
+BEGIN {
+ eval { require Config };
+ die 'OS unsupported' if $@;
+ Config->import(qw/%Config/);
+ eval { require File::Spec };
+ die 'OS unsupported' if $@;
+ $has_version_pm = eval "require version; 1" || 0;
}
-if (!$has_vg) {
+use lib 'lib';
+
+print 'Checking for valgrind ' . ('>= 3.1.0 ' x $has_version_pm) .'in PATH... ';
+require Test::Valgrind::Session;
+my $vg = eval q[
+ Test::Valgrind::Session->new((min_version => '3.1.0') x $has_version_pm)
+ ->valgrind
+];
+if ($vg) {
+ print "$vg\n";
+} else {
print "no\n";
die 'OS unsupported';
}
-my $BUILD_REQUIRES = {
- 'ExtUtils::MakeMaker' => 0,
- 'Test::More' => 0
-};
-
-sub build_req {
- my $tometa = ' >> $(DISTVNAME)/META.yml;';
- my $build_req = 'echo "build_requires:" ' . $tometa;
- foreach my $mod ( sort { lc $a cmp lc $b } keys %$BUILD_REQUIRES ) {
- my $ver = $BUILD_REQUIRES->{$mod};
- $build_req .= sprintf 'echo " %-30s %s" %s', "$mod:", $ver, $tometa;
+# 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 @path = File::Spec->path;
+@ccs = map {
+ my $cc = $_;
+ File::Spec->file_name_is_absolute($cc)
+ ? $cc
+ : map File::Spec->catfile($_, $cc), @path
+} @ccs;
+my $has_cc;
+CC:
+for my $cc (@ccs) {
+ if (-x $cc or MM->maybe_command($cc)) {
+ $has_cc = $cc;
+ last CC;
}
- return $build_req;
}
-
-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 $_;
+my (@C);
+if ($has_cc) {
+ my $xs = 'Valgrind.xs';
+ (my $c = $xs) =~ s/\.xs$/.c/;
+ push @C, $c;
+ print $has_cc, "\n";
+} else {
+ print "none\n";
}
-close $out;
-close $tpl;
-$supp = 'Test/Valgrind/perlTestValgrind.supp';
+my %PREREQ_PM = (
+ 'Carp' => 0,
+ 'Digest::MD5' => 0,
+ 'Env::Sanctify' => 0,
+ 'File::HomeDir' => '0.86',
+ 'File::Path' => 0,
+ 'File::Spec' => 0,
+ 'File::Temp' => '0.14', # OO interface
+ 'Filter::Util::Call' => 0,
+ 'Fcntl' => 0,
+ 'List::Util' => 0,
+ 'POSIX' => 0,
+ 'Perl::Destruct::Level' => 0,
+ 'Scalar::Util' => 0,
+ 'Test::Builder' => 0,
+ 'Test::More' => 0,
+ 'XML::Twig' => 0,
+ 'base' => 0,
+ 'version' => 0,
+);
+
+my $dist = 'Test-Valgrind';
+
+my %META = (
+ configure_requires => {
+ 'Carp' => 0,
+ 'Config' => 0,
+ 'ExtUtils::MakeMaker' => 0,
+ 'Fcntl' => 0,
+ 'File::Spec' => 0,
+ 'POSIX' => 0,
+ 'Scalar::Util' => 0,
+ 'base' => 0,
+ 'version' => 0,
+ },
+ build_requires => {
+ 'ExtUtils::MakeMaker' => 0,
+ 'Test::More' => 0,
+ %PREREQ_PM,
+ },
+ recommends => {
+ 'DynaLoader' => 0,
+ 'XSLoader' => 0,
+ },
+ resources => {
+ bugtracker => "http://rt.cpan.org/NoAuth/ReportBug.html?Queue=$dist",
+ homepage => "http://search.cpan.org/dist/$dist/",
+ license => 'http://dev.perl.org/licenses/',
+ repository => "http://git.profvince.com/?p=perl%2Fmodules%2F$dist.git",
+ },
+);
WriteMakefile(
- NAME => 'Test::Valgrind',
- AUTHOR => 'Vincent Pit <perl@profvince.com>',
- LICENSE => 'perl',
- VERSION_FROM => 'lib/Test/Valgrind.pm',
- ABSTRACT_FROM => 'lib/Test/Valgrind.pm',
- PL_FILES => { './Gensupp.PL' => 'lib/' . $supp },
- 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,
+ NAME => 'Test::Valgrind',
+ AUTHOR => 'Vincent Pit <perl@profvince.com>',
+ LICENSE => 'perl',
+ VERSION_FROM => 'lib/Test/Valgrind.pm',
+ ABSTRACT_FROM => 'lib/Test/Valgrind.pm',
+ OPTIMIZE => '-g',
+ C => \@C,
+ PREREQ_PM => \%PREREQ_PM,
+ MIN_PERL_VERSION => 5.006,
+ META_MERGE => \%META,
+ dist => {
+ PREOP => 'pod2text lib/Test/Valgrind.pm > $(DISTVNAME)/README',
+ COMPRESS => 'gzip -9f', SUFFIX => 'gz',
},
- PREREQ_PM => {
- 'Carp' => 0,
- 'Exporter' => 0,
- 'POSIX' => 0,
- 'Perl::Destruct::Level' => 0,
- 'Test::More' => 0,
+ clean => {
+ FILES => "$dist-* Makefile.bak *.gcov *.gcda *.gcno cover_db Debian_CPANTS.txt"
},
- dist => {
- PREOP => '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" },
);
-1 while unlink 'lib/' . $supp;
-