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

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

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

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

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.545
retrieving revision 1.546
diff -u -d -r1.545 -r1.546
--- Base.pm	2 Feb 2006 01:54:01 -0000	1.545
+++ Base.pm	16 Feb 2006 04:32:07 -0000	1.546
@@ -849,7 +849,8 @@
 sub read_config {
   my ($self) = @_;
   
-  my $file = $self->config_file('build_params');
+  my $file = $self->config_file('build_params')
+    or die "No build_params?";
   my $fh = IO::File->new($file) or die "Can't read '$file': $!";
   my $ref = eval do {local $/; <$fh>};
   die if $@;
@@ -1163,8 +1164,14 @@
   
   my $build_package = $self->build_class;
   
+  my $closedata="";
+
   my %q = map {$_, $self->$_()} qw(config_dir base_dir);
-  $q{base_dir} = Win32::GetShortPathName($q{base_dir}) if $^O eq 'MSWin32';
+  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;
@@ -1197,6 +1204,7 @@
   return \$filenum == $magic_number;
 }
 
+$closedata
 my \$progname;
 my \$orig_dir;
 BEGIN {