| Commit | Line | Data |
|---|
| 583a019e |
1 | use ExtUtils::MakeMaker; |
| 583a019e |
2 | |
| 583a019e |
3 | WriteMakefile( |
| d7b9cf63 |
4 | NAME => 'Devel::DProf', |
| 5 | DISTNAME => 'DProf', |
| 6 | VERSION_FROM => 'DProf.pm', |
| 7 | clean => { 'FILES' => 'tmon.out t/tmon.out t/err dprofpp T/tmon.out'}, |
| 8 | EXE_FILES => ['dprofpp'], |
| 9 | PL_FILES => {'dprofpp.PL' => 'dprofpp'}, |
| 10 | XSPROTOARG => '-noprototypes', |
| 11 | DEFINE => '-DPERLDBf_NONAME=0x40 -DPERLDBf_GOTO=0x80 ' |
| 12 | .'-DG_NODEBUG=32 -DPL_NEEDED', |
| 13 | dist => { |
| 14 | COMPRESS => 'gzip -9f', |
| 15 | SUFFIX => 'gz', |
| 16 | DIST_DEFAULT => 'all tardist', |
| 17 | }, |
| 18 | MAN3PODS => {}, |
| 583a019e |
19 | ); |
| 20 | |
| 21 | sub MY::test_via_harness { "" } |
| 22 | #sub MY::test_via_harness { |
| 23 | # my( $self, $perl, $tests ) = @_; |
| 24 | # my $t = quotemeta( $tests ); |
| 25 | # my $res; |
| 26 | # |
| 27 | # $res = $self->MM::test_via_harness( $perl, $tests ); |
| 28 | # $res =~ s/^(\s+)/$1-/; |
| 29 | # $res =~ s/(&runtests)/\$\$switches $1/; |
| 30 | # $res =~ s/(; runtests)/; \$\$switches=q{-d:DProf}$1/; |
| 31 | # $res =~ s,$t,t/bug.t,; |
| 32 | # $res; |
| 33 | #} |
| 34 | |
| 35 | sub MY::test_via_script { |
| 36 | my( $self, $perl, $script ) = @_; |
| 37 | my $res; |
| 38 | |
| 39 | $res = $self->MM::test_via_script( $perl, $script ); |
| 40 | $res =~ s/(test.pl)/$1 -p $perl/; |
| 41 | $res; |
| 42 | } |
projects / p5sagit/p5-mst-13.2.git / blame