diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2007-08-30 19:21:52 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2007-08-31 22:42:43 +0000 |
| commit | 2b54c3f6d41342b4ee015415e987abda90dcc7be (patch) | |
| tree | 40d77ff221a3f2b86e2a957842189b40d42d1e5b /lib/CPANPLUS | |
| parent | 463ea4b9ac9baea8f37871d557598d26c8e0b1e0 (diff) | |
| download | perl-2b54c3f6d41342b4ee015415e987abda90dcc7be.tar.gz | |
[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
Diffstat (limited to 'lib/CPANPLUS')
| -rw-r--r-- | lib/CPANPLUS/Internals/Extract.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/CPANPLUS/Internals/Extract.pm b/lib/CPANPLUS/Internals/Extract.pm index 544d5894f9..881ec7b07b 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 ); } |