ext/Devel/DProf/Makefile.PL

   1 use ExtUtils::MakeMaker;
   2
   3 WriteMakefile(
   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        => {},
  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 }