Re: When Storable and Devel::DProf mix, core dump [perl #19385]

[p5sagit/p5-mst-13.2.git] / ext / Devel / DProf / Makefile.PL

diff --git a/ext/Devel/DProf/Makefile.PL b/ext/Devel/DProf/Makefile.PL
index 6de38f7..b3eb6c5 100644 (file)
--- a/ext/Devel/DProf/Makefile.PL
+++ b/ext/Devel/DProf/Makefile.PL
@@ -1,12 +1,14 @@
+BEGIN {
+       require 5.006;
+}
+
 use ExtUtils::MakeMaker;
 
 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'},
+       clean           => { 'FILES' => 'tmon.out t/tmon.out t/err'},
        XSPROTOARG      => '-noprototypes',
        DEFINE          => '-DPERLDBf_NONAME=0x40 -DPERLDBf_GOTO=0x80 '
                          .'-DG_NODEBUG=32 -DPL_NEEDED',
@@ -17,26 +19,3 @@ WriteMakefile(
                           },
        MAN3PODS        => {},
 );
-
-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;
-}