[perl.git] branch blead updated. v5.29.2-58-g8f6fa66c69

[Chris 'Bingos' Williams]

In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/8f6fa66c6967f115eb142d5129b520af535fbf83?hp=9e3f69e17840704c61e1ccf16ebe26a526c7447e>

- Log -----------------------------------------------------------------
commit 8f6fa66c6967f115eb142d5129b520af535fbf83
Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk>
Date:   Thu Sep 13 10:01:40 2018 +0100

    Update Archive-Tar to CPAN version 2.32
    
      [DELTA]
    
    2.32  13/09/2018 (CBERRY)
    - Fix absolute path handling on VMS

-----------------------------------------------------------------------

Summary of changes:
 Porting/Maintainers.pl                       |  2 +-
 cpan/Archive-Tar/lib/Archive/Tar.pm          |  2 +-
 cpan/Archive-Tar/lib/Archive/Tar/Constant.pm |  2 +-
 cpan/Archive-Tar/lib/Archive/Tar/File.pm     | 12 ++++++++++--
 4 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 1bad55829e..5c076d55b9 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -120,7 +120,7 @@ use File::Glob qw(:case);
 %Modules = (
 
     'Archive::Tar' => {
-        'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.30.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.32.tar.gz',
         'FILES'        => q[cpan/Archive-Tar],
         'BUGS'         => 'bug-archive-...@rt.cpan.org',
         'EXCLUDED'     => [
diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm 
b/cpan/Archive-Tar/lib/Archive/Tar.pm
index e08b5e5903..093579a6c2 100644
--- a/cpan/Archive-Tar/lib/Archive/Tar.pm
+++ b/cpan/Archive-Tar/lib/Archive/Tar.pm
@@ -31,7 +31,7 @@ use vars qw[$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK 
$CHOWN $CHMOD
 $DEBUG                  = 0;
 $WARN                   = 1;
 $FOLLOW_SYMLINK         = 0;
-$VERSION                = "2.30";
+$VERSION                = "2.32";
 $CHOWN                  = 1;
 $CHMOD                  = 1;
 $SAME_PERMISSIONS       = $> == 0 ? 1 : 0;
diff --git a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm 
b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
index 66fad51a07..a48968d9e0 100644
--- a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
+++ b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
@@ -3,7 +3,7 @@ package Archive::Tar::Constant;
 BEGIN {
     require Exporter;
 
-    $VERSION    = '2.30';
+    $VERSION    = '2.32';
     @ISA        = qw[Exporter];
 
     require Time::Local if $^O eq "MacOS";
diff --git a/cpan/Archive-Tar/lib/Archive/Tar/File.pm 
b/cpan/Archive-Tar/lib/Archive/Tar/File.pm
index b6fbecf6c9..3efa3159d9 100644
--- a/cpan/Archive-Tar/lib/Archive/Tar/File.pm
+++ b/cpan/Archive-Tar/lib/Archive/Tar/File.pm
@@ -13,7 +13,7 @@ use Archive::Tar::Constant;
 
 use vars qw[@ISA $VERSION];
 #@ISA        = qw[Archive::Tar];
-$VERSION    = '2.30';
+$VERSION    = '2.32';
 
 ### set value to 1 to oct() it during the unpack ###
 
@@ -402,7 +402,15 @@ sub _prefix_and_file {
     $file = pop @dirs if $self->is_dir and not length $file;
 
     ### splitting ../ gives you the relative path in native syntax
-    map { $_ = '..' if $_  eq '-' } @dirs if ON_VMS;
+    ### Remove the root (000000) directory
+    ### The volume from splitpath will also be in native syntax
+    if (ON_VMS) {
+        map { $_ = '..' if $_  eq '-'; $_ = '' if $_ eq '000000' } @dirs;
+        if (length($vol)) {
+            $vol = VMS::Filespec::unixify($vol);
+            unshift @dirs, $vol;
+        }
+    }
 
     my $prefix = File::Spec::Unix->catdir(@dirs);
     return( $prefix, $file );

-- 
Perl5 Master Repository