[svn:Module-Build] r10784 - Module-Build/trunk/lib/Module/Build

[kwilliams]

Author: kwilliams
Date: Sun Feb 17 20:50:42 2008
New Revision: 10784

Modified:
   Module-Build/trunk/lib/Module/Build/Base.pm
   Module-Build/trunk/lib/Module/Build/Compat.pm

Log:
Don't blindly remove Makefile.PL, it may not be the right thing to do

Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Sun Feb 17 20:50:42 2008
@@ -3040,7 +3040,6 @@
 sub do_create_makefile_pl {
   my $self = shift;
   require Module::Build::Compat;
-  $self->delete_filetree('Makefile.PL');
   $self->log_info("Creating Makefile.PL\n");
   Module::Build::Compat->create_makefile_pl($self->create_makefile_pl, $self, 
@_);
   $self->_add_to_manifest('MANIFEST', 'Makefile.PL');

Modified: Module-Build/trunk/lib/Module/Build/Compat.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Compat.pm       (original)
+++ Module-Build/trunk/lib/Module/Build/Compat.pm       Sun Feb 17 20:50:42 2008
@@ -37,6 +37,8 @@
     $fh = $args{fh};
   } else {
     $args{file} ||= 'Makefile.PL';
+    local $build->{properties}{quiet} = 1;
+    $build->delete_filetree($args{file});
     $fh = IO::File->new("> $args{file}") or die "Can't write $args{file}: $!";
   }