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
|
