--- Compat.pm.orig	Wed Jul 18 23:56:59 2007
+++ Compat.pm	Wed Jul 18 23:57:46 2007
@@ -125,7 +125,6 @@
     %prereq = ( %{$build->requires}, %{$build->build_requires} );
     %prereq = map {$_, $prereq{$_}} sort keys %prereq;
     
-    delete $prereq{perl};
     $MM_Args{PREREQ_PM} = \%prereq;
     
     $MM_Args{INSTALLDIRS} = $build->installdirs eq 'core' ? 'perl' : $build->installdirs;
@@ -248,7 +247,6 @@
   my @prereq;
   foreach my $section (qw/build_requires requires/) {
     foreach (keys %{$prereqs->{$section}}) {
-      next if $_ eq 'perl';
       push @prereq, "$_=>q[$prereqs->{$section}{$_}]";
     }
   }