[svn:Module-Build] r12874 - in Module-Build/trunk: . lib/Module/Build/Platform

Author: dagolden
Date: Sun Jun 21 15:27:49 2009
New Revision: 12874

Modified:
   Module-Build/trunk/Changes
   Module-Build/trunk/lib/Module/Build/Platform/Windows.pm

Log:
delete Build.bat in realclean on Windows regardless of case (RT43863)

If invoked as "build realclean" instead of "Build realclean" then
Build.bat was not being be deleted.


Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes	(original)
+++ Module-Build/trunk/Changes	Sun Jun 21 15:27:49 2009
@@ -11,6 +11,7 @@
  - Fixed bug linking non-standard XS names on Windows (RT#38065)
  - Run PL files that don't generate any file (RT#39365)
  - HTML generation failure no longer fatal (RT#36660)
+ - realclean might not delete Build.bat on Windows (RT#43863)
 
  Other
  - On MSWin32, bumped File::Spec prereq to 3.30 for a variety of fixes

Modified: Module-Build/trunk/lib/Module/Build/Platform/Windows.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Platform/Windows.pm	(original)
+++ Module-Build/trunk/lib/Module/Build/Platform/Windows.pm	Sun Jun 21 15:27:49 2009
@@ -37,8 +37,9 @@
   my $basename = basename($0);
   $basename =~ s/(?:\.bat)?$//i;
 
-  if ( $basename eq $self->build_script ) {
+  if ( lc $basename eq lc $self->build_script ) {
     if ( $self->build_bat ) {
+      $self->log_info("Deleting $basename.bat\n");
       my $full_progname = $0;
       $full_progname =~ s/(?:\.bat)?$/.bat/i;