[Module-build-checkins] Module-Build/lib/Module/Build/Platform Windows.pm,1.26,1.27

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build/Platform
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24444/lib/Module/Build/Platform

Modified Files:
	Windows.pm 
Log Message:
Create Build.bat

Index: Windows.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Platform/Windows.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- Windows.pm	21 Jan 2006 18:05:01 -0000	1.26
+++ Windows.pm	16 Feb 2006 04:32:08 -0000	1.27
@@ -56,17 +56,26 @@
   my $pl2bat = $self->{config}{pl2bat};
 
   if ( defined($pl2bat) && length($pl2bat) ) {
+    my $ext= $ENV{PATHEXT}=~/\.CMD(\W|$)/i ? '.cmd' : '.bat';
+				   
     foreach my $script (@_) {
-      # Don't run 'pl2bat.bat' for the 'Build' script;
-      # there is no easy way to get the resulting 'Build.bat'
-      # to delete itself when doing a 'Build realclean'.
-      next if ( $script eq $self->{properties}{build_script} );
-
       (my $script_bat = $script) =~ s/\.plx?//i;
-      $script_bat .= '.bat' unless $script_bat =~ /\.bat$/i;
 
+      if ($script_bat =~ /\.(bat|cmd)$/i) {
+	warn "Won't convert '$script' to a batch file named '$script_bat' nor to '$script_bat$ext'.\n";
+	next;
+      }
+      $script_bat .= $ext;
+      $self->add_to_cleanup($script_bat);
       my $status = $self->do_system("$self->{properties}{perl} $pl2bat < $script > $script_bat");
+
       if ( $status && -f $script_bat ) {
+        if ( $script eq $self->{properties}{build_script} ) {
+	  open my $fh, ">>", $script_bat or
+	    die "Failed to open for append batch file '$script':$!";
+	  print $fh "\nif exist Build_FollowUp$ext Build_FollowUp$ext\n";
+	  close $fh;
+        }
         $self->SUPER::make_executable($script_bat);
       } else {
         warn "Unable to convert '$script' to an executable.\n";