[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 (file)
--- 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 );
     }