Commit d143fc2551 for perl

commit d143fc255132390f974c097cf408502537b3ee19
Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date:   Fri Oct 2 09:13:38 2026 -0400

    cpan/Archive-Tar - Update to version 3.14

    3.14  02/10/2026 (Lukas Mai && Jitka Plesnikova)
    - Make tests pass with spaces in $^X or build directory
    - Use three-arg open when probing magic bytes

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 19fd77cd21..a0c529ab0d 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -130,8 +130,8 @@ our @IGNORABLE = qw(
 our %Modules = (

     'Archive::Tar' => {
-        'DISTRIBUTION' => 'BINGOS/Archive-Tar-3.12.tar.gz',
-        'SYNCINFO'     => 'leont on Wed Jun  3 15:24:01 2026',
+        'DISTRIBUTION' => 'BINGOS/Archive-Tar-3.14.tar.gz',
+        'SYNCINFO'     => 'jkeenan on Fri Oct  2 09:13:09 2026',
         'FILES'        => q[cpan/Archive-Tar],
         'BUGS'         => 'bug-archive-tar@rt.cpan.org',
         'EXCLUDED'     => [
diff --git a/cpan/Archive-Tar/lib/Archive/Tar.pm b/cpan/Archive-Tar/lib/Archive/Tar.pm
index a15e99fd20..62fa776fc6 100644
--- a/cpan/Archive-Tar/lib/Archive/Tar.pm
+++ b/cpan/Archive-Tar/lib/Archive/Tar.pm
@@ -32,7 +32,7 @@ use vars qw[$DEBUG $error $VERSION $WARN $FOLLOW_SYMLINK $CHOWN $CHMOD
 $DEBUG                  = 0;
 $WARN                   = 1;
 $FOLLOW_SYMLINK         = 0;
-$VERSION                = "3.12";
+$VERSION                = "3.14";
 $CHOWN                  = 1;
 $CHMOD                  = 1;
 $SAME_PERMISSIONS       = $> == 0 ? 1 : 0;
@@ -247,7 +247,7 @@ sub _get_handle {
         ### reading. otherwise, just use what the user requested.
         my $magic = '';
         if( MODE_READ->($mode) ) {
-            open my $tmp, $file or do {
+            open my $tmp, '<', $file or do {
                 $self->_error( qq[Could not open '$file' for reading: $!] );
                 return;
             };
diff --git a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
index da70b26a3e..210aa8ffdc 100644
--- a/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
+++ b/cpan/Archive-Tar/lib/Archive/Tar/Constant.pm
@@ -8,7 +8,7 @@ use vars qw[$VERSION @ISA @EXPORT];
 BEGIN {
     require Exporter;

-    $VERSION    = '3.12';
+    $VERSION    = '3.14';
     @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 d524b9df88..2e49f9cfe1 100644
--- a/cpan/Archive-Tar/lib/Archive/Tar/File.pm
+++ b/cpan/Archive-Tar/lib/Archive/Tar/File.pm
@@ -11,7 +11,7 @@ use Archive::Tar::Constant;

 use vars qw[@ISA $VERSION];
 #@ISA        = qw[Archive::Tar];
-$VERSION    = '3.12';
+$VERSION    = '3.14';

 ### set value to 1 to oct() it during the unpack ###

diff --git a/cpan/Archive-Tar/t/08_ptargrep.t b/cpan/Archive-Tar/t/08_ptargrep.t
index f6af9cbdde..55c9483e70 100644
--- a/cpan/Archive-Tar/t/08_ptargrep.t
+++ b/cpan/Archive-Tar/t/08_ptargrep.t
@@ -11,7 +11,7 @@ my $tartest = File::Spec->catfile("t", "ptargrep");
 my $foo = File::Spec->catfile("t", "ptargrep", "foo");
 my $tarfile = File::Spec->catfile("t", "ptargrep.tar");
 my $ptargrep = File::Spec->catfile($Bin, "..", "bin", "ptargrep");
-my $cmd = qq/$^X $ptargrep --list-only "file foo" $tarfile/;
+my $cmd = qq/"$^X" "$ptargrep" --list-only "file foo" $tarfile/;

 # create directory/files
 mkdir $tartest;
diff --git a/cpan/Archive-Tar/t/10_ptar.t b/cpan/Archive-Tar/t/10_ptar.t
index b7e2d1b99c..13d7de15c2 100644
--- a/cpan/Archive-Tar/t/10_ptar.t
+++ b/cpan/Archive-Tar/t/10_ptar.t
@@ -11,7 +11,7 @@ my $tartest = File::Spec->catfile("t", "ptar");
 my $foo = File::Spec->catfile("t", "ptar", "foo");
 my $tarfile = File::Spec->catfile("t", "ptar.tar");
 my $ptar = File::Spec->catfile($Bin, "..", "bin", "ptar");
-my $cmd = "$^X $ptar";
+my $cmd = qq/"$^X" "$ptar"/;

 plan tests => 11;
 my $out;