From 2b54c3f6d41342b4ee015415e987abda90dcc7be Mon Sep 17 00:00:00 2001 From: "John E. Malmberg" Date: Thu, 30 Aug 2007 19:21:52 -0500 Subject: [PATCH] [patch@31750] CPANPLUS extract.pm fixes for VMS. From: "John E. Malmberg" Message-id: <46D7A570.4050801@qsl.net> catdir was used where catfile was meant. p4raw-id: //depot/perl@31776 --- lib/CPANPLUS/Internals/Extract.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ); } -- 2.7.4