[Module-build-checkins] [svn:Module-Build] r5879 - Module-Build/trunk/lib/Module/Build

[<ra...@cv...>]

Author: randys
Date: Sat Apr  8 23:07:16 2006
New Revision: 5879

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

Log:
Delete existing file before copying new file.

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	Sat Apr  8 23:07:16 2006
@@ -3923,7 +3923,9 @@
   }
   
   return if $self->up_to_date($file, $to_path); # Already fresh
-  
+
+  $self->delete_filetree($to_path); # delete destination if exists
+
   # Create parent directories
   File::Path::mkpath(File::Basename::dirname($to_path), 0, 0777);