[patch@31750] CPANPLUS extract.pm fixes for VMS.

[John E. Malmberg]

In lib/CPANPLUS/Internals/Extract.pm, VMS needs to use catfile to deal 
with combining path components that could include a file name component.

If C<catfile> will work for all platforms, then the test for VMS can be 
removed.

-John
[EMAIL PROTECTED]
Personal Opinion Only.
--- /rsync_root/perl/lib/CPANPLUS/Internals/Extract.pm  Tue Apr 10 02:43:20 2007
+++ lib/CPANPLUS/Internals/Extract.pm   Thu Aug 30 00:08:54 2007
@@ -183,7 +183,14 @@
     #            @{$ae->files};
     
     for my $file ( @{$ae->files} ) { 
-        my $path = File::Spec->rel2abs( File::Spec->catdir($to, $file) );
+        my $rel_path;
+        if ($^O eq 'VMS') {
+            # VMS needs catfile to deal with paths that may include a file
+            $rel_path = File::Spec->catfile($to, $file);
+        } else {
+            $rel_path = File::Spec->catdir($to, $file);
+        }
+        my $path = File::Spec->rel2abs( $rel_path );
     
         $self->_mode_plus_w( file => $path );
     }