Remove an unreferenced local variable in Digest-MD5

[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 ec23edb..b3eb6c5 100644 (file)
--- a/ext/Devel/DProf/Makefile.PL
+++ b/ext/Devel/DProf/Makefile.PL
@@ -1,55 +1,21 @@
-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';
+BEGIN {
+       require 5.006;
 }
 
-$Verbose = 1;
+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'},
-       'XSPROTOARG'    => '-noprototypes',
-       'DEFINE'        => $defines,
-       'dist' => { COMPRESS => 'gzip', SUFFIX => 'gz' },
+       NAME            => 'Devel::DProf',
+       DISTNAME        => 'DProf',
+       VERSION_FROM    => 'DProf.pm',
+       clean           => { 'FILES' => 'tmon.out t/tmon.out t/err'},
+       XSPROTOARG      => '-noprototypes',
+       DEFINE          => '-DPERLDBf_NONAME=0x40 -DPERLDBf_GOTO=0x80 '
+                         .'-DG_NODEBUG=32 -DPL_NEEDED',
+       dist            => {
+                            COMPRESS => 'gzip -9f',
+                            SUFFIX => 'gz',
+                            DIST_DEFAULT => 'all tardist',
+                          },
+       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;
-}