use ExtUtils::MakeMaker;
require 5.003;
die qq{
Your perl is too old for this version of DProf. The last version of
DProf that works for perls older than 5.004 is DProf-19960930 and
should be available from Dean Roehrich\'s directory on CPAN:
CPAN/authors/id/DMR/
Please either upgrade your perl or get that older DProf from CPAN.
} if $] < 5.004;
if ($] < 5.005) {
$defines = '';
} else {
$defines = '-DPERLDBf_NONAME=0x40 -DPERLDBf_GOTO=0x80 -DG_NODEBUG=32 -DPL_NEEDED';
}
$Verbose = 1;
WriteMakefile(
'NAME' => 'Devel::DProf',
'DISTNAME' => 'DProf',
'VERSION_FROM' => 'DProf.pm',
'clean' => {'FILES' => 'tmon.out t/tmon.out t/err dprofpp T/tmon.out'},
'EXE_FILES' => ['dprofpp'],
'PL_FILES' => {'dprofpp.PL' => 'dprofpp'},
'XSPROTOARG' => '-noprototypes',
'DEFINE' => $defines,
'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz' },
);
sub MY::test_via_harness { "" }
#sub MY::test_via_harness {
# my( $self, $perl, $tests ) = @_;
# my $t = quotemeta( $tests );
# my $res;
#
# $res = $self->MM::test_via_harness( $perl, $tests );
# $res =~ s/^(\s+)/$1-/;
# $res =~ s/(&runtests)/\$\$switches $1/;
# $res =~ s/(; runtests)/; \$\$switches=q{-d:DProf}$1/;
# $res =~ s,$t,t/bug.t,;
# $res;
#}
sub MY::test_via_script {
my( $self, $perl, $script ) = @_;
my $res;
$res = $self->MM::test_via_script( $perl, $script );
$res =~ s/(test.pl)/$1 -p $perl/;
$res;
}