Author: kwilliams
Date: Mon Sep 3 21:15:39 2007
New Revision: 9912
Modified:
Module-Build/trunk/Changes
Module-Build/trunk/lib/Module/Build/Base.pm
Log:
catdir() should have been catfile()
Modified: Module-Build/trunk/Changes
==============================================================================
--- Module-Build/trunk/Changes (original)
+++ Module-Build/trunk/Changes Mon Sep 3 21:15:39 2007
@@ -1,5 +1,8 @@
Revision history for Perl extension Module::Build.
+ - Fixed a catdir() that needed to be catfile() in the .packlist
+ creation code. [John E. Malmberg]
+
- If a *.PL file ended abnormally during the build, processing should
have stopped, but it didn't. Fixed. [Matthew Cast and David
Golden]
Modified: Module-Build/trunk/lib/Module/Build/Base.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/Base.pm (original)
+++ Module-Build/trunk/lib/Module/Build/Base.pm Mon Sep 3 21:15:39 2007
@@ -3805,7 +3805,7 @@
if ($self->create_packlist and my $module_name = $self->module_name) {
my $archdir = $self->install_destination('arch');
my @ext = split /::/, $module_name;
- $map{write} = File::Spec->catdir($archdir, 'auto', @ext, '.packlist');
+ $map{write} = File::Spec->catfile($archdir, 'auto', @ext, '.packlist');
}
# Handle destdir
