.gitignore

@@ -1 +1 @@
-SOURCES/PathTools-3.75.tar.gz
+SOURCES/PathTools-3.62.tar.gz

.perl-PathTools.metadata

@@ -1 +1 @@
-ff2f9e55e33a1cfe1247e29f4e136b9a78f4be3a SOURCES/PathTools-3.75.tar.gz
+356530987ccfb61779ce038978a614aa64679d72 SOURCES/PathTools-3.62.tar.gz

SOURCES/PathTools-3.47-Disable-VMS-tests.patch

@@ -1,20 +1,6 @@
-From 27cd91c8d8c0aa03a954097e24d78df08905dc8e Mon Sep 17 00:00:00 2001
-From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
-Date: Thu, 11 May 2017 11:36:46 +0200
-Subject: [PATCH] Disable VMS test (bug #973713)
-MIME-Version: 1.0
-Content-Type: text/plain; charset=UTF-8
-Content-Transfer-Encoding: 8bit
-
-Signed-off-by: Petr Písař <ppisar@redhat.com>
----
- t/Spec.t | 196 +--------------------------------------------------------------
- 1 file changed, 1 insertion(+), 195 deletions(-)
-
-diff --git a/t/Spec.t b/t/Spec.t
-index 84ed6b1..7ef976f 100644
---- a/t/Spec.t
-+++ b/t/Spec.t
+diff -up PathTools-3.47/t/Spec.t.orig PathTools-3.47/t/Spec.t
+--- PathTools-3.47/t/Spec.t.orig	2014-05-23 18:39:28.000000000 +0200
++++ PathTools-3.47/t/Spec.t	2014-05-27 12:32:22.473486887 +0200
 @@ -38,7 +38,7 @@ if ( $@ ) {
     $INC{"VMS/Filespec.pm"} = 1 ;
  }
@@ -24,7 +10,7 @@ index 84ed6b1..7ef976f 100644
      require_ok("File::Spec::$_");
  }
  
-@@ -326,200 +326,6 @@ my @tests = (
+@@ -322,190 +322,6 @@ my @tests = (
  [ "FakeWin32->rel2abs('../','//prague_main/work')",         '\\\\prague_main\\work'           ],
  [ "FakeWin32->rel2abs('D:foo.txt')",                        'D:\\alpha\\beta\\foo.txt'        ],
  
@@ -153,14 +139,7 @@ index 84ed6b1..7ef976f 100644
 -[ "VMS->canonpath('[d1.d2.--]file')",                                   $vms_unix_rpt ? '../file.txt'  : '[000000]file'                    ],
 -# During the Perl 5.8 era, FS::Unix stopped eliminating redundant path elements, so mimic that here.
 -[ "VMS->canonpath('a/../../b/c.dat')",                  $vms_unix_rpt ? 'a/../../b/c.dat'              : '[-.b]c.dat'                      ],
--[ "VMS->canonpath('^<test^.new.-.caret^ escapes^>')",   $vms_unix_rpt ? '/<test.new.-.caret escapes>' : '^<test^.new.-.caret^ escapes^>'                                                   ],
--# Check that directory specs with caret-dot component is treated correctly
--[ "VMS->canonpath('foo:[bar.coo.kie.--]file.txt')",     $vms_unix_rpt ? '/foo/bar/file.txt'            : "foo:[bar]file.txt" ],
--[ "VMS->canonpath('foo:[bar^.coo.kie.--]file.txt')",    $vms_unix_rpt ? '/foo/file.txt'                : "foo:[000000]file.txt" ],
--[ "VMS->canonpath('foo:[bar.coo^.kie.--]file.txt')",    $vms_unix_rpt ? '/foo/file.txt'                : "foo:[000000]file.txt" ],
--[ "VMS->canonpath('foo:[bar.coo.kie.-]file.txt')",      $vms_unix_rpt ? '/foo/bar/coo/file.txt'        : "foo:[bar.coo]file.txt" ],
--[ "VMS->canonpath('foo:[bar^.coo.kie.-]file.txt')",     $vms_unix_rpt ? '/foo/bar.coo/file.txt'        : "foo:[bar^.coo]file.txt" ],
--[ "VMS->canonpath('foo:[bar.coo^.kie.-]file.txt')",     $vms_unix_rpt ? '/foo/bar/file.txt'            : "foo:[bar]file.txt" ],
+-[ "VMS->canonpath('^<test^.new.-.caret^ escapes^>')",   '^<test^.new.-.caret^ escapes^>'                                                   ],
 -
 -[ "VMS->splitdir('')",            ''          ],
 -[ "VMS->splitdir('[]')",          ''          ],
@@ -196,8 +175,6 @@ index 84ed6b1..7ef976f 100644
 -[ "VMS->abs2rel('node::volume:[t1.t2.t3]','[t1.t2.t3]')", $vms_unix_rpt ? '/node//volume/t1/t2/t3/' : 'node::volume:[t1.t2.t3]' ],
 -[ "VMS->abs2rel('node::volume:[t1.t2.t4]','node::volume:[t1.t2.t3]')", $vms_unix_rpt ? '../t4/' : '[-.t4]' ],
 -[ "VMS->abs2rel('node::volume:[t1.t2.t4]','[t1.t2.t3]')", $vms_unix_rpt ? '/node//volume/t1/t2/t4/' : 'node::volume:[t1.t2.t4]' ],
--[ "VMS->abs2rel('/volume/t1/t2/t3','/volume/t1')",        $vms_unix_rpt ? 't2/t3' : '[.t2]t3' ],
--[ "VMS->abs2rel('/volume/t1/t2/t3/t4','/volume/t1/xyz')", $vms_unix_rpt ? '../t2/t3/t4' : '[-.t2.t3]t4' ],
 -[ "VMS->abs2rel('[t1.t2.t3]','[t1.t2.t3]')",              $vms_unix_rpt ? './' : '[]'             ],
 -[ "VMS->abs2rel('[t1.t2.t3]file','[t1.t2.t3]')",          'file'                                  ],
 -[ "VMS->abs2rel('[t1.t2.t3]file','[t1.t2]')",             $vms_unix_rpt ? 't3/file' : '[.t3]file' ],
@@ -208,7 +185,7 @@ index 84ed6b1..7ef976f 100644
 -[ "VMS->abs2rel('[t4.t5.t6]','[t1.t2.t3]')",              $vms_unix_rpt ? '../../../t4/t5/t6/' : '[---.t4.t5.t6]'   ],
 -[ "VMS->abs2rel('[000000]','[t1.t2.t3]')",                $vms_unix_rpt ? '../../../'          : '[---]'            ],
 -[ "VMS->abs2rel('a:[t1.t2.t4]','a:[t1.t2.t3]')",          $vms_unix_rpt ? '../t4/'             : '[-.t4]'           ],
--[ "VMS->abs2rel('a:[t1.t2.t4]','[t1.t2.t3]')",            $vms_unix_rpt ? '/a/t1/t2/t4'        : 'a:[t1.t2.t4]'    ],
+-[ "VMS->abs2rel('a:[t1.t2.t4]','[t1.t2.t3]')",            $vms_unix_rpt ? '/a/t1/t2/t4/'        : 'a:[t1.t2.t4]'    ],
 -[ "VMS->abs2rel('[a.-.b.c.-]','[t1.t2.t3]')",             $vms_unix_rpt ? '../../../b/'         : '[---.b]'         ],
 -
 -[ "VMS->rel2abs('[.t4]','[t1.t2.t3]')",          $vms_unix_rpt ? '/sys$disk/t1/t2/t3/t4/'    : '[t1.t2.t3.t4]'    ],
@@ -221,10 +198,6 @@ index 84ed6b1..7ef976f 100644
 -[ "VMS->file_name_is_absolute('foo:')",                '1'  ],
 -[ "VMS->file_name_is_absolute('foo:bar.dat')",         '1'  ],
 -[ "VMS->file_name_is_absolute('foo:[000000]bar.dat')", '1'  ],
--
+ 
  [ "OS2->case_tolerant()",         '1'  ],
  
- [ "OS2->catdir('A:/d1','B:/d2','d3','')", 'A:/d1/B:/d2/d3' ],
--- 
-2.13.6
-

SOURCES/PathTools-3.62-Upgrade-to-3.63.patch

@@ -0,0 +1,204 @@
+diff --git a/Cwd.pm b/Cwd.pm
+index 9b5183e..e8b9f19 100644
+--- a/Cwd.pm
++++ b/Cwd.pm
+@@ -3,7 +3,7 @@ use strict;
+ use Exporter;
+ use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
+ 
+-$VERSION = '3.62';
++$VERSION = '3.63';
+ my $xs_version = $VERSION;
+ $VERSION =~ tr/_//d;
+ 
+diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
+index 2709c39..32b987e 100644
+--- a/lib/File/Spec.pm
++++ b/lib/File/Spec.pm
+@@ -3,7 +3,7 @@ package File::Spec;
+ use strict;
+ use vars qw(@ISA $VERSION);
+ 
+-$VERSION = '3.62';
++$VERSION = '3.63';
+ $VERSION =~ tr/_//d;
+ 
+ my %module = (MacOS   => 'Mac',
+diff --git a/lib/File/Spec/AmigaOS.pm b/lib/File/Spec/AmigaOS.pm
+index e6d6f5f2a..7a5889c 100644
+--- a/lib/File/Spec/AmigaOS.pm
++++ b/lib/File/Spec/AmigaOS.pm
+@@ -4,7 +4,7 @@ use strict;
+ use vars qw(@ISA $VERSION);
+ require File::Spec::Unix;
+ 
+-$VERSION = '3.62';
++$VERSION = '3.64';
+ $VERSION =~ tr/_//d;
+ 
+ @ISA = qw(File::Spec::Unix);
+@@ -15,7 +15,8 @@ File::Spec::AmigaOS - File::Spec for AmigaOS
+ 
+ =head1 SYNOPSIS
+ 
+- require File::Spec::AmigaOS; # Done automatically by File::Spec if needed
++ require File::Spec::AmigaOS; # Done automatically by File::Spec
++                              # if needed
+ 
+ =head1 DESCRIPTION
+ 
+diff --git a/lib/File/Spec/Cygwin.pm b/lib/File/Spec/Cygwin.pm
+index 67f056f..2092eb8 100644
+--- a/lib/File/Spec/Cygwin.pm
++++ b/lib/File/Spec/Cygwin.pm
+@@ -4,7 +4,7 @@ use strict;
+ use vars qw(@ISA $VERSION);
+ require File::Spec::Unix;
+ 
+-$VERSION = '3.62';
++$VERSION = '3.63';
+ $VERSION =~ tr/_//d;
+ 
+ @ISA = qw(File::Spec::Unix);
+diff --git a/lib/File/Spec/Epoc.pm b/lib/File/Spec/Epoc.pm
+index 17e3f54..22f0192 100644
+--- a/lib/File/Spec/Epoc.pm
++++ b/lib/File/Spec/Epoc.pm
+@@ -3,7 +3,7 @@ package File::Spec::Epoc;
+ use strict;
+ use vars qw($VERSION @ISA);
+ 
+-$VERSION = '3.62';
++$VERSION = '3.63';
+ $VERSION =~ tr/_//d;
+ 
+ require File::Spec::Unix;
+diff --git a/lib/File/Spec/Functions.pm b/lib/File/Spec/Functions.pm
+index 470c771..af2c498 100644
+--- a/lib/File/Spec/Functions.pm
++++ b/lib/File/Spec/Functions.pm
+@@ -5,7 +5,7 @@ use strict;
+ 
+ use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
+ 
+-$VERSION = '3.62';
++$VERSION = '3.63';
+ $VERSION =~ tr/_//d;
+ 
+ require Exporter;
+diff --git a/lib/File/Spec/Mac.pm b/lib/File/Spec/Mac.pm
+index 329451f..52c3bfe 100644
+--- a/lib/File/Spec/Mac.pm
++++ b/lib/File/Spec/Mac.pm
+@@ -4,7 +4,7 @@ use strict;
+ use vars qw(@ISA $VERSION);
+ require File::Spec::Unix;
+ 
+-$VERSION = '3.62';
++$VERSION = '3.63';
+ $VERSION =~ tr/_//d;
+ 
+ @ISA = qw(File::Spec::Unix);
+diff --git a/lib/File/Spec/OS2.pm b/lib/File/Spec/OS2.pm
+index 55e6d33..804ecdb 100644
+--- a/lib/File/Spec/OS2.pm
++++ b/lib/File/Spec/OS2.pm
+@@ -4,7 +4,7 @@ use strict;
+ use vars qw(@ISA $VERSION);
+ require File::Spec::Unix;
+ 
+-$VERSION = '3.62';
++$VERSION = '3.63';
+ $VERSION =~ tr/_//d;
+ 
+ @ISA = qw(File::Spec::Unix);
+diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
+index 586e9b0..3916a11 100644
+--- a/lib/File/Spec/Unix.pm
++++ b/lib/File/Spec/Unix.pm
+@@ -3,7 +3,7 @@ package File::Spec::Unix;
+ use strict;
+ use vars qw($VERSION);
+ 
+-$VERSION = '3.62';
++$VERSION = '3.63';
+ my $xs_version = $VERSION;
+ $VERSION =~ tr/_//d;
+ 
+diff --git a/lib/File/Spec/VMS.pm b/lib/File/Spec/VMS.pm
+index 600c49f..02cc0b0 100644
+--- a/lib/File/Spec/VMS.pm
++++ b/lib/File/Spec/VMS.pm
+@@ -4,7 +4,7 @@ use strict;
+ use vars qw(@ISA $VERSION);
+ require File::Spec::Unix;
+ 
+-$VERSION = '3.62';
++$VERSION = '3.63';
+ $VERSION =~ tr/_//d;
+ 
+ @ISA = qw(File::Spec::Unix);
+@@ -437,15 +437,13 @@ Attempt to convert an absolute file specification to a relative specification.
+ 
+ sub abs2rel {
+     my $self = shift;
+-    return vmspath(File::Spec::Unix::abs2rel( $self, @_ ))
+-        if ((grep m{/}, @_) && !(grep m{(?<!\^)[\[<:]}, @_));
+-
+     my($path,$base) = @_;
++
+     $base = $self->_cwd() unless defined $base and length $base;
+ 
+     # If there is no device or directory syntax on $base, make sure it
+     # is treated as a directory.
+-    $base = VMS::Filespec::vmspath($base) unless $base =~ m{(?<!\^)[\[<:]};
++    $base = vmspath($base) unless $base =~ m{(?<!\^)[\[<:]};
+ 
+     for ($path, $base) { $_ = $self->rel2abs($_) }
+ 
+@@ -461,7 +459,7 @@ sub abs2rel {
+     
+     my ($path_volume, $path_directories, $path_file) = $self->splitpath($path);
+     my ($base_volume, $base_directories, $base_file) = $self->splitpath($base);
+-    return $path unless lc($path_volume) eq lc($base_volume);
++    return $self->canonpath( $path ) unless lc($path_volume) eq lc($base_volume);
+ 
+     # Now, remove all leading components that are the same
+     my @pathchunks = $self->splitdir( $path_directories );
+diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
+index 6df7ee8..1105b67 100644
+--- a/lib/File/Spec/Win32.pm
++++ b/lib/File/Spec/Win32.pm
+@@ -5,7 +5,7 @@ use strict;
+ use vars qw(@ISA $VERSION);
+ require File::Spec::Unix;
+ 
+-$VERSION = '3.62';
++$VERSION = '3.63';
+ $VERSION =~ tr/_//d;
+ 
+ @ISA = qw(File::Spec::Unix);
+diff --git a/t/abs2rel.t b/t/abs2rel.t
+index 5e33ab6..b77a1c2 100644
+--- a/t/abs2rel.t
++++ b/t/abs2rel.t
+@@ -6,7 +6,7 @@ use Test::More;
+ use Cwd qw(cwd getcwd abs_path);
+ use File::Spec();
+ use File::Temp qw(tempdir);
+-use File::Path qw(make_path);
++use File::Path qw(mkpath);
+ 
+ my $startdir = cwd();
+ my @files = ( 'anyfile', './anyfile', '../first_sub_dir/anyfile', '../second_sub_dir/second_file' );
+@@ -25,8 +25,8 @@ sub test_rel2abs {
+         File::Spec->catdir('first_sub_dir',  'sub_sub_dir'),
+         'second_sub_dir'
+     );
+-    make_path(@subdirs, { mode => 0711 })
+-        or die "Unable to make_path: $!";
++    mkpath(@subdirs, { mode => 0711 })
++        or die "Unable to mkpath: $!";
+ 
+     open my $OUT2, '>',
+         File::Spec->catfile('second_sub_dir', 'second_file')

SOURCES/PathTools-3.63-CVE-2016-1238-avoid-loading-optional-modules-from.patch

@@ -0,0 +1,62 @@
+diff -up PathTools/Cwd.pm.cve PathTools/Cwd.pm
+--- PathTools/Cwd.pm.cve	2016-03-01 13:33:02.000000000 +0100
++++ PathTools/Cwd.pm	2016-08-02 13:39:39.814316060 +0200
+@@ -40,7 +40,10 @@ if ($^O eq 'os2') {
+ my $use_vms_feature;
+ BEGIN {
+     if ($^O eq 'VMS') {
+-        if (eval { local $SIG{__DIE__}; require VMS::Feature; }) {
++        if (eval { local $SIG{__DIE__};
++                   local @INC = @INC;
++                   pop @INC if $INC[-1] eq '.';
++                   require VMS::Feature; }) {
+             $use_vms_feature = 1;
+         }
+     }
+diff -up PathTools/lib/File/Spec/Cygwin.pm.cve PathTools/lib/File/Spec/Cygwin.pm
+--- PathTools/lib/File/Spec/Cygwin.pm.cve	2016-03-01 13:33:02.000000000 +0100
++++ PathTools/lib/File/Spec/Cygwin.pm	2016-08-02 13:39:39.814316060 +0200
+@@ -137,7 +137,11 @@ sub case_tolerant {
+   if ($mntopts and ($mntopts =~ /,managed/)) {
+     return 0;
+   }
+-  eval { require Win32API::File; } or return 1;
++  eval {
++      local @INC = @INC;
++      pop @INC if $INC[-1] eq '.';
++      require Win32API::File;
++  } or return 1;
+   my $osFsType = "\0"x256;
+   my $osVolName = "\0"x256;
+   my $ouFsFlags = 0;
+diff -up PathTools/lib/File/Spec/VMS.pm.cve PathTools/lib/File/Spec/VMS.pm
+--- PathTools/lib/File/Spec/VMS.pm.cve	2016-03-01 13:33:02.000000000 +0100
++++ PathTools/lib/File/Spec/VMS.pm	2016-08-02 13:39:39.814316060 +0200
+@@ -39,7 +39,10 @@ via the C<DECC$FILENAME_UNIX_REPORT> CRT
+ 
+ my $use_feature;
+ BEGIN {
+-    if (eval { local $SIG{__DIE__}; require VMS::Feature; }) {
++    if (eval { local $SIG{__DIE__};
++               local @INC = @INC;
++               pop @INC if $INC[-1] eq '.';
++               require VMS::Feature; }) {
+         $use_feature = 1;
+     }
+ }
+diff -up PathTools/lib/File/Spec/Win32.pm.cve PathTools/lib/File/Spec/Win32.pm
+--- PathTools/lib/File/Spec/Win32.pm.cve	2016-03-01 13:33:02.000000000 +0100
++++ PathTools/lib/File/Spec/Win32.pm	2016-08-02 13:39:39.814316060 +0200
+@@ -90,7 +90,11 @@ Default: 1
+ =cut
+ 
+ sub case_tolerant {
+-  eval { require Win32API::File; } or return 1;
++  eval {
++    local @INC = @INC;
++    pop @INC if $INC[-1] eq '.';
++    require Win32API::File;
++  } or return 1;
+   my $drive = shift || "C:";
+   my $osFsType = "\0"x256;
+   my $osVolName = "\0"x256;

SOURCES/PathTools-3.75-Upgrade-to-3.78.patch

@@ -1,283 +0,0 @@
-From 3c570b93e7ca990b3274219dd828e8fdaac0bf9d Mon Sep 17 00:00:00 2001
-From: Jitka Plesnikova <jplesnik@redhat.com>
-Date: Thu, 25 Apr 2019 17:04:30 +0200
-Subject: [PATCH] Upgrade to 3.78
-
----
- Cwd.pm                     |  8 ++++++--
- lib/File/Spec.pm           |  2 +-
- lib/File/Spec/AmigaOS.pm   |  2 +-
- lib/File/Spec/Cygwin.pm    |  2 +-
- lib/File/Spec/Epoc.pm      |  2 +-
- lib/File/Spec/Functions.pm |  2 +-
- lib/File/Spec/Mac.pm       |  2 +-
- lib/File/Spec/OS2.pm       |  2 +-
- lib/File/Spec/Unix.pm      |  2 +-
- lib/File/Spec/Win32.pm     | 14 ++------------
- t/Spec.t                   |  4 ++--
- t/cwd.t                    | 11 ++++++++++-
- t/cwd_enoent.t             |  9 ++++++---
- 13 files changed, 34 insertions(+), 28 deletions(-)
-
-diff --git a/Cwd.pm b/Cwd.pm
-index 16d5b11..9b173c2 100644
---- a/Cwd.pm
-+++ b/Cwd.pm
-@@ -3,7 +3,7 @@ use strict;
- use Exporter;
- 
- 
--our $VERSION = '3.75';
-+our $VERSION = '3.78';
- my $xs_version = $VERSION;
- $VERSION =~ tr/_//d;
- 
-@@ -171,7 +171,7 @@ if($^O ne 'MSWin32') {
- if ($^O =~ /android/) {
-     # If targetsh is executable, then we're either a full
-     # perl, or a miniperl for a native build.
--    if (-x $Config::Config{targetsh}) {
-+    if ( exists($Config::Config{targetsh}) && -x $Config::Config{targetsh}) {
-         $pwd_cmd = "$Config::Config{targetsh} -c pwd"
-     }
-     else {
-@@ -659,6 +659,10 @@ if (exists $METHOD_MAP{$^O}) {
-   }
- }
- 
-+# built-in from 5.30
-+*getcwd = \&Internals::getcwd
-+  if !defined &getcwd && defined &Internals::getcwd;
-+
- # In case the XS version doesn't load.
- *abs_path = \&_perl_abs_path unless defined &abs_path;
- *getcwd = \&_perl_getcwd unless defined &getcwd;
-diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
-index eb3b55a..7fe3272 100644
---- a/lib/File/Spec.pm
-+++ b/lib/File/Spec.pm
-@@ -2,7 +2,7 @@ package File::Spec;
- 
- use strict;
- 
--our $VERSION = '3.75';
-+our $VERSION = '3.78';
- $VERSION =~ tr/_//d;
- 
- my %module = (
-diff --git a/lib/File/Spec/AmigaOS.pm b/lib/File/Spec/AmigaOS.pm
-index 1355768..2b7d18a 100644
---- a/lib/File/Spec/AmigaOS.pm
-+++ b/lib/File/Spec/AmigaOS.pm
-@@ -3,7 +3,7 @@ package File::Spec::AmigaOS;
- use strict;
- require File::Spec::Unix;
- 
--our $VERSION = '3.75';
-+our $VERSION = '3.78';
- $VERSION =~ tr/_//d;
- 
- our @ISA = qw(File::Spec::Unix);
-diff --git a/lib/File/Spec/Cygwin.pm b/lib/File/Spec/Cygwin.pm
-index 9dc15a1..d44ced3 100644
---- a/lib/File/Spec/Cygwin.pm
-+++ b/lib/File/Spec/Cygwin.pm
-@@ -3,7 +3,7 @@ package File::Spec::Cygwin;
- use strict;
- require File::Spec::Unix;
- 
--our $VERSION = '3.75';
-+our $VERSION = '3.78';
- $VERSION =~ tr/_//d;
- 
- our @ISA = qw(File::Spec::Unix);
-diff --git a/lib/File/Spec/Epoc.pm b/lib/File/Spec/Epoc.pm
-index bd87b68..b611cd9 100644
---- a/lib/File/Spec/Epoc.pm
-+++ b/lib/File/Spec/Epoc.pm
-@@ -2,7 +2,7 @@ package File::Spec::Epoc;
- 
- use strict;
- 
--our $VERSION = '3.75';
-+our $VERSION = '3.78';
- $VERSION =~ tr/_//d;
- 
- require File::Spec::Unix;
-diff --git a/lib/File/Spec/Functions.pm b/lib/File/Spec/Functions.pm
-index 19ab4db..3f617bd 100644
---- a/lib/File/Spec/Functions.pm
-+++ b/lib/File/Spec/Functions.pm
-@@ -3,7 +3,7 @@ package File::Spec::Functions;
- use File::Spec;
- use strict;
- 
--our $VERSION = '3.75';
-+our $VERSION = '3.78';
- $VERSION =~ tr/_//d;
- 
- require Exporter;
-diff --git a/lib/File/Spec/Mac.pm b/lib/File/Spec/Mac.pm
-index 926a5dd..d920d2f 100644
---- a/lib/File/Spec/Mac.pm
-+++ b/lib/File/Spec/Mac.pm
-@@ -4,7 +4,7 @@ use strict;
- use Cwd ();
- require File::Spec::Unix;
- 
--our $VERSION = '3.75';
-+our $VERSION = '3.78';
- $VERSION =~ tr/_//d;
- 
- our @ISA = qw(File::Spec::Unix);
-diff --git a/lib/File/Spec/OS2.pm b/lib/File/Spec/OS2.pm
-index 4404fe8..603781a 100644
---- a/lib/File/Spec/OS2.pm
-+++ b/lib/File/Spec/OS2.pm
-@@ -4,7 +4,7 @@ use strict;
- use Cwd ();
- require File::Spec::Unix;
- 
--our $VERSION = '3.75';
-+our $VERSION = '3.78';
- $VERSION =~ tr/_//d;
- 
- our @ISA = qw(File::Spec::Unix);
-diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
-index cd29f76..6749e60 100644
---- a/lib/File/Spec/Unix.pm
-+++ b/lib/File/Spec/Unix.pm
-@@ -3,7 +3,7 @@ package File::Spec::Unix;
- use strict;
- use Cwd ();
- 
--our $VERSION = '3.75';
-+our $VERSION = '3.78';
- $VERSION =~ tr/_//d;
- 
- =head1 NAME
-diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
-index 0cf0e28..5934010 100644
---- a/lib/File/Spec/Win32.pm
-+++ b/lib/File/Spec/Win32.pm
-@@ -5,7 +5,7 @@ use strict;
- use Cwd ();
- require File::Spec::Unix;
- 
--our $VERSION = '3.75';
-+our $VERSION = '3.78';
- $VERSION =~ tr/_//d;
- 
- our @ISA = qw(File::Spec::Unix);
-@@ -137,7 +137,7 @@ sub catfile {
-     # Legacy / compatibility support
-     #
-     shift, return _canon_cat( "/", @_ )
--	if $_[0] eq "";
-+	if !@_ || $_[0] eq "";
- 
-     # Compatibility with File::Spec <= 3.26:
-     #     catfile('A:', 'foo') should return 'A:\foo'.
-@@ -407,16 +407,6 @@ sub _canon_cat				# @path -> path
- 	       )+			# performance boost -- I do not know why
- 	     }{\\}gx;
- 
--    # XXX I do not know whether more dots are supported by the OS supporting
--    #     this ... annotation (NetWare or symbian but not MSWin32).
--    #     Then .... could easily become ../../.. etc:
--    # Replace \.\.\. by (\.\.\.+)  and substitute with
--    # { $1 . ".." . "\\.." x (length($2)-2) }gex
--	     				# ... --> ../..
--    $path =~ s{ (\A|\\)			# at begin or after a slash
--    		\.\.\.
--		(?=\\|\z) 		# at end or followed by slash
--	     }{$1..\\..}gx;
-     					# xx\yy\..\zz --> xx\zz
-     while ( $path =~ s{(?:
- 		(?:\A|\\)		# at begin or after a slash
-diff --git a/t/Spec.t b/t/Spec.t
-index 1b26190..c953391 100644
---- a/t/Spec.t
-+++ b/t/Spec.t
-@@ -277,9 +277,9 @@ my @tests = (
- [ "Win32->canonpath('//a/b/../../c')",  '\\\\a\\b\\c'         ],
- [ "Win32->canonpath('//a/b/c/../d')",   '\\\\a\\b\\d'         ],
- [ "Win32->canonpath('//a/b/c/../../d')",'\\\\a\\b\\d'         ],
--[ "Win32->canonpath('//a/b/c/.../d')",  '\\\\a\\b\\d'         ],
-+[ "Win32->canonpath('//a/b/c/.../d')",  '\\\\a\\b\\c\\...\\d' ],
- [ "Win32->canonpath('/a/b/c/../../d')", '\\a\\d'              ],
--[ "Win32->canonpath('/a/b/c/.../d')",   '\\a\\d'              ],
-+[ "Win32->canonpath('/a/b/c/.../d')",   '\\a\\b\\c\\...\\d'   ],
- [ "Win32->canonpath('\\../temp\\')",    '\\temp'              ],
- [ "Win32->canonpath('\\../')",          '\\'                  ],
- [ "Win32->canonpath('\\..\\')",         '\\'                  ],
-diff --git a/t/cwd.t b/t/cwd.t
-index 483b437..c056938 100644
---- a/t/cwd.t
-+++ b/t/cwd.t
-@@ -10,6 +10,7 @@ chdir 't';
- use Config;
- use File::Spec;
- use File::Path;
-+use Errno qw(EACCES);
- 
- use lib File::Spec->catdir('t', 'lib');
- use Test::More;
-@@ -208,7 +209,15 @@ SKIP: {
- 
-     like($abs_path,      qr|$want$|i, "Cwd::abs_path produced $abs_path");
-     like($fast_abs_path, qr|$want$|i, "Cwd::fast_abs_path produced $fast_abs_path");
--    like($pas,           qr|$want$|i, "Cwd::_perl_abs_path produced $pas") if $EXTRA_ABSPATH_TESTS;
-+    if ($EXTRA_ABSPATH_TESTS) {
-+        # _perl_abs_path() can fail if some ancestor directory isn't readable
-+        if (defined $pas) {
-+            like($pas,           qr|$want$|i, "Cwd::_perl_abs_path produced $pas");
-+        }
-+        else {
-+            is($!+0, EACCES, "check we got the expected error on failure");
-+        }
-+    }
- 
-     rmtree($test_dirs[0], 0, 0);
-     1 while unlink $file;
-diff --git a/t/cwd_enoent.t b/t/cwd_enoent.t
-index 8f3a1fb..510c65e 100644
---- a/t/cwd_enoent.t
-+++ b/t/cwd_enoent.t
-@@ -2,7 +2,7 @@ use warnings;
- use strict;
- 
- use Config;
--use Errno qw(ENOENT);
-+use Errno qw();
- use File::Temp qw(tempdir);
- use Test::More;
- 
-@@ -19,6 +19,7 @@ unless(mkdir("$tmp/testdir") && chdir("$tmp/testdir") && rmdir("$tmp/testdir")){
- plan tests => 8;
- require Cwd;
- 
-+my @acceptable_errnos = (&Errno::ENOENT, (defined &Errno::ESTALE ? &Errno::ESTALE : ()));
- foreach my $type (qw(regular perl)) {
-     SKIP: {
- 	skip "_perl_abs_path() not expected to work", 4
-@@ -36,12 +37,14 @@ foreach my $type (qw(regular perl)) {
- 	$res = Cwd::getcwd();
- 	$eno = 0+$!;
- 	is $res, undef, "$type getcwd result on non-existent directory";
--	is $eno, ENOENT, "$type getcwd errno on non-existent directory";
-+	ok((grep { $eno == $_ } @acceptable_errnos), "$type getcwd errno on non-existent directory")
-+	    or diag "Got errno code $eno, expected " . join(", ", @acceptable_errnos);
- 	$! = 0;
- 	$res = Cwd::abs_path(".");
- 	$eno = 0+$!;
- 	is $res, undef, "$type abs_path result on non-existent directory";
--	is $eno, ENOENT, "$type abs_path errno on non-existent directory";
-+	ok((grep { $eno == $_ } @acceptable_errnos), "$type abs_path errno on non-existent directory")
-+	    or diag "Got errno code $eno, expected " . join(", ", @acceptable_errnos);
-     }
- }
- 
--- 
-2.20.1
-

SPECS/perl-PathTools.spec

@@ -1,37 +1,39 @@
-%global base_version 3.75
-
+%global base_version 3.62
 Name:           perl-PathTools
-Version:        3.78
-Release:        439%{?dist}
+Version:        3.63
+Release:        368%{?dist}
 Summary:        PathTools Perl module (Cwd, File::Spec)
 # Cwd.xs:                   BSD
 # other files:              GPL+ or Artistic
+## Not in the binary package
+# t/lib/Test/Tutorial.pod:  (GPL+ or Artistic) and Public Domain
 License:        (GPL+ or Artistic) and BSD
-URL:            https://metacpan.org/release/PathTools
-Source0:        https://cpan.metacpan.org/authors/id/X/XS/XSAWYERX/PathTools-%{base_version}.tar.gz
-# Disable VMS tests (bug #973713)
-Patch0:         PathTools-3.74-Disable-VMS-tests.patch
-# Unbundled from perl 5.29.10
-Patch1:         PathTools-3.75-Upgrade-to-3.78.patch
+Group:          Development/Libraries
+URL:            http://search.cpan.org/dist/PathTools/
+Source0:        http://www.cpan.org/authors/id/R/RJ/RJBS/PathTools-%{base_version}.tar.gz
+# Disable VMS test (bug #973713)
+Patch0:         PathTools-3.47-Disable-VMS-tests.patch
+# Unbundled from perl 5.24.0
+Patch1:         PathTools-3.62-Upgrade-to-3.63.patch
+# Avoid loading optional modules from default . (CVE-2016-1238)
+Patch2:         PathTools-3.63-CVE-2016-1238-avoid-loading-optional-modules-from.patch
 BuildRequires:  coreutils
 BuildRequires:  findutils
 BuildRequires:  gcc
 BuildRequires:  make
+BuildRequires:  perl
 BuildRequires:  perl-devel
 BuildRequires:  perl-generators
-BuildRequires:  perl-interpreter
-BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76
+BuildRequires:  perl(ExtUtils::MakeMaker)
 BuildRequires:  sed
 # Run-time:
 BuildRequires:  perl(Carp)
 BuildRequires:  perl(constant)
-BuildRequires:  perl(Errno)
 BuildRequires:  perl(Exporter)
 # File::Basename not needed because of removed File::Spec::VMS
 BuildRequires:  perl(Scalar::Util)
 BuildRequires:  perl(strict)
-# Optional run-time:
-BuildRequires:  perl(XSLoader)
+BuildRequires:  perl(vars)
 # Tests:
 BuildRequires:  perl(Carp::Heavy)
 BuildRequires:  perl(Config)
@@ -39,14 +41,9 @@ BuildRequires:  perl(File::Path)
 BuildRequires:  perl(File::Temp)
 BuildRequires:  perl(lib)
 BuildRequires:  perl(Test::More) >= 0.88
-BuildRequires:  perl(warnings)
 Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
 Requires:       perl(Carp)
-Requires:       perl(Errno)
 Requires:       perl(Scalar::Util)
-# XSLoader is optional only because miniperl does not support XS. With perl we
-# almost certainly want it.
-Recommends:     perl(XSLoader)
 
 %{?perl_default_filter}
 
@@ -57,69 +54,39 @@ This is the combined distribution for the File::Spec and Cwd modules.
 %setup -q -n PathTools-%{base_version}
 %patch0 -p1
 %patch1 -p1
+%patch2 -p1
 
 # Do not distribute File::Spec::VMS as it works on VMS only (bug #973713)
 rm lib/File/Spec/VMS.pm
 sed -i -e '/^lib\/File\/Spec\/VMS.pm/d' MANIFEST
 
+# Remove bundled modules
+rm -rf t/lib
+sed -i -e '/t\/lib\//d' MANIFEST
+
 %build
-perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 OPTIMIZE="$RPM_OPT_FLAGS"
+perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="$RPM_OPT_FLAGS"
 make %{?_smp_mflags}
 
 %install
 make pure_install DESTDIR=$RPM_BUILD_ROOT
-find $RPM_BUILD_ROOT -type f -name '*.bs' -size 0 -delete
+find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
+find $RPM_BUILD_ROOT -type f -name '*.bs' -size 0 -exec rm -f {} \;
 %{_fixperms} $RPM_BUILD_ROOT/*
 
 %check
 make test
 
 %files
-%doc Changes
+%doc Changes README
 %{perl_vendorarch}/auto/*
 %{perl_vendorarch}/Cwd.pm
 %{perl_vendorarch}/File/
 %{_mandir}/man3/*
 
 %changelog
-* Fri Jul 26 2019 Fedora Release Engineering <releng@fedoraproject.org> - 3.78-439
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_31_Mass_Rebuild
-
-* Thu May 30 2019 Jitka Plesnikova <jplesnik@redhat.com> - 3.78-438
-- Increase release to favour standalone package
-
-* Thu Apr 25 2019 Jitka Plesnikova <jplesnik@redhat.com> - 3.78-1
-- Upgrade to 3.78 as provided in perl-5.29.10
-
-* Fri Feb 01 2019 Fedora Release Engineering <releng@fedoraproject.org> - 3.75-2
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_30_Mass_Rebuild
-
-* Thu Aug 30 2018 Petr Pisar <ppisar@redhat.com> - 3.75-1
-- 3.75 bump
-
-* Fri Jul 13 2018 Fedora Release Engineering <releng@fedoraproject.org> - 3.74-417
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_29_Mass_Rebuild
-
-* Wed Jun 27 2018 Jitka Plesnikova <jplesnik@redhat.com> - 3.74-416
-- Increase release to favour standalone package
-
-* Mon Feb 19 2018 Petr Pisar <ppisar@redhat.com> - 3.74-1
-- 3.74 bump
-
-* Fri Feb 09 2018 Fedora Release Engineering <releng@fedoraproject.org> - 3.67-396
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild
-
-* Thu Aug 03 2017 Fedora Release Engineering <releng@fedoraproject.org> - 3.67-395
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Binutils_Mass_Rebuild
-
-* Thu Jul 27 2017 Fedora Release Engineering <releng@fedoraproject.org> - 3.67-394
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild
-
-* Sat Jun 03 2017 Jitka Plesnikova <jplesnik@redhat.com> - 3.67-393
-- Perl 5.26 rebuild
-
-* Thu May 11 2017 Petr Pisar <ppisar@redhat.com> - 3.67-1
-- Upgrade to 3.67 as provided in perl-5.25.12
+* Fri Mar 29 2019 Jitka Plesnikova <jplesnik@redhat.com> - 3.63-368
+- Rebuild with enable hardening (bug #1636329)
 
 * Sat Feb 11 2017 Fedora Release Engineering <releng@fedoraproject.org> - 3.63-367
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild