[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.546,1.547

[Randy W. S. <si...@us...>]

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

Modified Files:
	Base.pm 
Log Message:
On Windows, remove the pl2bat generated 'Build.bat' script without the annoying "The batch file cannot be found." error.

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.546
retrieving revision 1.547
diff -u -d -r1.546 -r1.547
--- Base.pm	16 Feb 2006 04:32:07 -0000	1.546
+++ Base.pm	21 Feb 2006 02:22:56 -0000	1.547
@@ -1167,14 +1167,12 @@
   my $closedata="";
 
   my %q = map {$_, $self->$_()} qw(config_dir base_dir);
-  if ( $^O eq 'MSWin32' ) {
-    $q{base_dir} = Win32::GetShortPathName($q{base_dir});
-    $closedata="\nclose(*DATA) unless eof(*DATA);"
-               ."# Necessary on Win32 to allow realclean!\n";
-  }
+
   my $case_tolerant = 0+(File::Spec->can('case_tolerant')
 			 && File::Spec->case_tolerant);
   $q{base_dir} = uc $q{base_dir} if $case_tolerant;
+  $q{base_dir} = Win32::GetShortPathName($q{base_dir}) if $^O eq 'MSWin32';
+
   $q{magic_numfile} = $self->config_file('magicnum');
 
   my @myINC = $self->_added_to_INC;
@@ -1204,7 +1202,6 @@
   return \$filenum == $magic_number;
 }
 
-$closedata
 my \$progname;
 my \$orig_dir;
 BEGIN {
@@ -1226,6 +1223,8 @@
     );
 }
 
+close(*DATA) unless eof(*DATA); # ensure no open handles to this script
+
 use $build_package;
 
 # Some platforms have problems setting \$^X in shebang contexts, fix it up here