From: John E. Malmberg <wb8tyw@qsl.net>
Date: Fri, 31 Aug 2007 00:21:52 +0000 (-0500)
Subject: [patch@31750] CPANPLUS extract.pm fixes for VMS.
X-Git-Tag: accepted/trunk/20130322.191538~14708
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2b54c3f6d41342b4ee015415e987abda90dcc7be;p=platform%2Fupstream%2Fperl.git

[patch@31750] CPANPLUS extract.pm fixes for VMS.
From: "John E. Malmberg" <wb8tyw@qsl.net>
	Message-id: <46D7A570.4050801@qsl.net>

catdir was used where catfile was meant.

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

diff --git a/lib/CPANPLUS/Internals/Extract.pm b/lib/CPANPLUS/Internals/Extract.pm
index 544d589..881ec7b 100644
--- a/lib/CPANPLUS/Internals/Extract.pm
+++ b/lib/CPANPLUS/Internals/Extract.pm
@@ -183,7 +183,7 @@ sub _extract {
     #            @{$ae->files};
     
     for my $file ( @{$ae->files} ) { 
-        my $path = File::Spec->rel2abs( File::Spec->catdir($to, $file) );
+        my $path = File::Spec->rel2abs( File::Spec->catfile($to, $file) );
     
         $self->_mode_plus_w( file => $path );
     }