From: John E. Malmberg <wb8tyw@qsl.net>
Date: Sun, 2 Sep 2007 17:23:04 +0000 (-0500)
Subject: [patch@31780] fixes for cpanplus on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a20c6482d204abfd031d3f3d9d0393e664c8c1d1;p=p5sagit%2Fp5-mst-13.2.git

[patch@31780] fixes for cpanplus on VMS
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <46DB37C8.3060100@qsl.net>

Only the hunk containing the replacement of catdir with
catfile in Module::Build::Base::install_map.

p4raw-id: //depot/perl@31814
---

diff --git a/lib/Module/Build/Base.pm b/lib/Module/Build/Base.pm
index 9ac7c96..b2cdb30 100644
--- a/lib/Module/Build/Base.pm
+++ b/lib/Module/Build/Base.pm
@@ -3796,7 +3796,7 @@ sub install_map {
   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