X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FTest-Valgrind.git;a=blobdiff_plain;f=Makefile.PL;h=39d91cebb8e7753d73a8fd7569a7d1fc5802878e;hp=35f78dccc4a4d7b48299b4a47ef0ba4de0f16e84;hb=HEAD;hpb=aa1ba53f7e77b33463557fef07603e5b0881f56c diff --git a/Makefile.PL b/Makefile.PL index 35f78dc..39d91ce 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -4,148 +4,200 @@ use strict; use warnings; use ExtUtils::MakeMaker; -BEGIN { - eval { require Config }; - die 'OS unsupported' if $@; - Config->import(qw/%Config/); - eval { require File::Spec }; - die 'OS unsupported' if $@; -} +use Config; +use File::Spec; + +sub validate_exe { + my ($name, $preferred_path) = @_; -my $vg; -print 'Checking for valgrind >= 3.1.0 in PATH... '; -for (split /$Config{path_sep}/, $ENV{PATH}) { - $_ .= '/valgrind'; - if (-x) { - my $ver = qx/$_ --version/; - if ($ver =~ s/^valgrind-//) { - $ver = join '', map chr, split /\./, $ver; - if ($ver ge v3.1.0) { - print "$_\n"; - $vg = $_; - last; - } + my (@candidates, @args); + if (File::Spec->file_name_is_absolute($name)) { + # No need to look for args if the name is absolute. + @candidates = $name; + } else { + my @path; + if (defined $preferred_path) { + @path = ($preferred_path, grep { $_ ne $preferred_path } File::Spec->path); + } else { + @path = File::Spec->path; + } + + (my $base, @args) = split ' ', $name; + for my $path_entry (@path) { + my ($vol, $dir, $file) = File::Spec->splitpath($path_entry, 1); + next if defined $file and length $file; + push @candidates, File::Spec->catpath($vol, $dir, $base); } } -} -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; + for my $path (@candidates) { + my $command = MM->maybe_command($path); + if (defined $command) { + $command .= " @args" if @args; + return $command; } } -} -my (@C); -if ($cc) { - my $xs = 'Valgrind.xs'; - (my $c = $xs) =~ s/\.xs$/.c/; - push @C, $c; - print $cc, "\n"; -} else { - print "none\n"; + + return; } -my $BUILD_REQUIRES = { - 'ExtUtils::MakeMaker' => 0, - 'File::Copy' => 0, - 'Test::More' => 0, - 'XSLoader' => 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; +sub check_exe { + my (%args) = @_; + + my $desc = delete $args{desc}; + my $arg_var = delete $args{arg_var}; + my $tries = delete $args{try}; + my $preferred_path = delete $args{preferred_path}; + + my $exe; + + for (@ARGV) { + if (/^\Q$arg_var\E=(.*)/) { + $exe = validate_exe($1, $preferred_path); + last if defined $exe; + } + } + + if (defined $exe) { + print "Forcing the use of $exe as the $desc.\n"; + } else { + print "Checking for a valid $desc in the PATH... "; + for my $try (@$tries) { + next unless defined $try; + $exe = validate_exe($try, $preferred_path); + last if defined $exe; + } + if (defined $exe) { + print "$exe\n"; + } else { + print "none\n"; + } } - 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 $_; + return $exe; } -close $out; -close $tpl; -$supp = 'Test/Valgrind/perlTestValgrind.supp'; +my %PARAMS; -WriteMakefile( - NAME => 'Test::Valgrind', - AUTHOR => 'Vincent Pit ', - LICENSE => 'perl', - VERSION_FROM => 'lib/Test/Valgrind.pm', - ABSTRACT_FROM => 'lib/Test/Valgrind.pm', - 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' - => 'blib/archpub/Test/Valgrind/Suppressions.pm', - }, - C => \@C, - PREREQ_PM => { - 'Carp' => 0, - 'Exporter' => 0, - 'Fcntl' => 0, - 'POSIX' => 0, - 'Perl::Destruct::Level' => 0, - 'Test::Builder' => 0, - }, - dist => { - PREOP => "touch lib/$supp; " - . 'pod2text lib/Test/Valgrind.pm > $(DISTVNAME)/README; ' - . build_req, - COMPRESS => 'gzip -9f', SUFFIX => 'gz', - }, - clean => { FILES => "Test-Valgrind-* lib/$supp Makefile.bak *.gcov *.gcda *.gcno cover_db Debian_CPANTS.txt" }, +my $cc = check_exe( + desc => 'C compiler', + arg_var => 'CC', + try => [ $Config{cc}, $ENV{CC}, 'cc' ], ); -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 <splitpath($cc); + my $preferred_path = File::Spec->catpath($vol, $dir, ''); + my $ld = check_exe( + desc => 'linker', + arg_var => 'LD', + try => [ $Config{ld}, $ENV{LD}, 'ld' ], + preferred_path => $preferred_path, + ); + if (defined $ld) { + my $xs = 'Valgrind.xs'; + (my $c = $xs) =~ s/\.xs$/.c/; + my $opt = $Config{optimize}; + $opt =~ s/-O\S*//g; + $opt .= ' -O0 -g'; + $PARAMS{C} = [ $c ]; + $PARAMS{XS} = { $xs => $c }; + $PARAMS{CC} = $cc; + $PARAMS{LD} = $ld; + $PARAMS{OPTIMIZE} = $opt; + } } -sub test { - my $test = shift->SUPER::test(@_); - my ($target) = $test =~ /^\s*(test\s*:+)/m; - return "$target Makefile.bak blib/archpub/$supp\n$test"; +unless ($PARAMS{C}) { + $PARAMS{C} = [ ]; + $PARAMS{XS} = { }; + $PARAMS{OBJECT} = ''; } -sub postamble { - return < 0, + 'Digest::MD5' => 0, + 'Env::Sanctify' => 0, + 'ExtUtils::MM' => 0, + 'File::HomeDir' => '0.86', + 'File::Path' => 0, + 'File::Spec' => 0, + 'File::Temp' => '0.19', # ->newdir in tests + 'Filter::Util::Call' => 0, + 'Fcntl' => 0, + 'IO::Select' => 0, + 'List::Util' => 0, + 'POSIX' => 0, + 'Perl::Destruct::Level' => 0, + 'Scalar::Util' => 0, + 'Test::Builder' => 0, + 'Test::More' => 0, + 'XML::Twig' => 0, + 'base' => 0, + 'overload' => 0, +); + +my %CONFIGURE_REQUIRES = ( + 'Config' => 0, + 'ExtUtils::MakeMaker' => 0, + 'File::Spec' => 0, +); + +my %BUILD_REQUIRES = ( + %CONFIGURE_REQUIRES, + 'File::Temp' => '0.19', # ->newdir in tests + 'IO::Handle' => 0, + 'IO::Select' => 0, + 'IPC::Open3' => 0, + 'Socket' => 0, + 'Test::More' => 0, + 'base' => 0, + 'lib' => 0, + %PREREQ_PM, +); + +my %META = ( + configure_requires => { + %CONFIGURE_REQUIRES, + }, + build_requires => { + %BUILD_REQUIRES, + }, + recommends => { + 'DynaLoader' => 0, + 'XSLoader' => 0, + }, + dynamic_config => 1, + resources => { + bugtracker => "http://rt.cpan.org/Dist/Display.html?Name=$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 => $name, + AUTHOR => 'Vincent Pit ', + LICENSE => 'perl', + VERSION_FROM => $file, + ABSTRACT_FROM => $file, + BUILD_REQUIRES => \%BUILD_REQUIRES, + PREREQ_PM => \%PREREQ_PM, + MIN_PERL_VERSION => '5.006', + META_MERGE => \%META, + dist => { + PREOP => "pod2text -u $file > \$(DISTVNAME)/README", + COMPRESS => 'gzip -9f', SUFFIX => 'gz', + }, + clean => { + FILES => "$dist-* *.gcov *.gcda *.gcno cover_db Debian_CPANTS.txt*" + }, + %PARAMS, +);