开源软件构建与测试

We truncated the diff of some files because they were too big. If you want to see the full diff for every file, click here.

Changes of Revision 2

_service:extract_file:perl-PathTools.spec Deleted

@@ -1,74 +0,0 @@
-%global base_version 3.75
-Name:           perl-PathTools
-Version:        3.80
-Release:        2
-Summary:        PathTools Perl Module (Cwd, File::Spec)
-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
-
-Patch6000:      backport-PathTools-3.75-Upgrade-to-3.78.patch
-Patch6001:      backport-PathTools-3.78-Upgrade-to-3.80.patch
-
-BuildRequires:  gcc perl-generators perl-interpreter perl-devel
-BuildRequires:  perl(ExtUtils::MakeMaker) perl(Test::More)
-Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
-Requires:       perl(Carp) perl(File::Basename) perl(Errno) perl(Scalar::Util)
-
-%{?perl_default_filter}
-
-%description
-Tools for working with directory and file names.
-
-%package_help
-
-%prep
-%autosetup -n PathTools-%{base_version} -p1
-
-%build
-perl Makefile.PL INSTALLDIRS=vendor
-%make_build
-
-%install
-rm -rf $RPM_BUILD_ROOT
-make pure_install DESTDIR=$RPM_BUILD_ROOT
-find $RPM_BUILD_ROOT -type f -name .packlist -delete
-%{_fixperms} -c $RPM_BUILD_ROOT
-
-%check
-make test
-
-%files
-%defattr(-,root,root)
-%doc Changes
-%{perl_vendorarch}/Cwd.pm
-%{perl_vendorarch}/File/*
-%{perl_vendorarch}/auto/*
-
-%files help
-%{_mandir}/man3/*
-
-%changelog
-* Mon Apr 25 2022 yuanxin <yuanxin24@h-partners.com> - 3.80-2
-- rectify the license
-
-* Sun Dec 26 2021 yuanxin <yuanxin24@huawei.com> - 3.80-1
-- update version to 3.80
-
-* Wed May 13 2020 licunlong <licunlong1@huawei.com> - 3.75-5
-- add perl-devel buildrequire
-
-* Sun Jan 12 2020 openEuler Buildteam <buildteam@openeuler.org> - 3.75-4
-- Type:enhancement
-- ID:NA
-- SUG:NA
-- DESC:delete redundant file
-
-* Thu Sep 26 2019 openEuler Buildteam <buildteam@openeuler.org> - 3.75-3
-- Type:enhancement
-- ID:NA
-- SUG:NA
-- DESC:revise help package
-
-* Tue Aug 13 2019 openEuler Buildteam <buildteam@openeuler.org> - 3.75-2
-- Package init

_service:tar_scm:perl-PathTools.spec Added

@@ -0,0 +1,74 @@
+%global base_version 3.75
+Name:           perl-PathTools
+Version:        3.80
+Release:        2
+Summary:        PathTools Perl Module (Cwd, File::Spec)
+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
+
+Patch6000:      backport-PathTools-3.75-Upgrade-to-3.78.patch
+Patch6001:      backport-PathTools-3.78-Upgrade-to-3.80.patch
+
+BuildRequires:  gcc perl-generators perl-interpreter perl-devel
+BuildRequires:  perl(ExtUtils::MakeMaker) perl(Test::More)
+Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Requires:       perl(Carp) perl(File::Basename) perl(Errno) perl(Scalar::Util)
+
+%{?perl_default_filter}
+
+%description
+Tools for working with directory and file names.
+
+%package_help
+
+%prep
+%autosetup -n PathTools-%{base_version} -p1
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor
+%make_build
+
+%install
+rm -rf $RPM_BUILD_ROOT
+make pure_install DESTDIR=$RPM_BUILD_ROOT
+find $RPM_BUILD_ROOT -type f -name .packlist -delete
+%{_fixperms} -c $RPM_BUILD_ROOT
+
+%check
+make test
+
+%files
+%defattr(-,root,root)
+%doc Changes
+%{perl_vendorarch}/Cwd.pm
+%{perl_vendorarch}/File/*
+%{perl_vendorarch}/auto/*
+
+%files help
+%{_mandir}/man3/*
+
+%changelog
+* Mon Apr 25 2022 yuanxin <yuanxin24@h-partners.com> - 3.80-2
+- rectify the license
+
+* Sun Dec 26 2021 yuanxin <yuanxin24@huawei.com> - 3.80-1
+- update version to 3.80
+
+* Wed May 13 2020 licunlong <licunlong1@huawei.com> - 3.75-5
+- add perl-devel buildrequire
+
+* Sun Jan 12 2020 openEuler Buildteam <buildteam@openeuler.org> - 3.75-4
+- Type:enhancement
+- ID:NA
+- SUG:NA
+- DESC:delete redundant file
+
+* Thu Sep 26 2019 openEuler Buildteam <buildteam@openeuler.org> - 3.75-3
+- Type:enhancement
+- ID:NA
+- SUG:NA
+- DESC:revise help package
+
+* Tue Aug 13 2019 openEuler Buildteam <buildteam@openeuler.org> - 3.75-2
+- Package init

_service:extract_file:backport-PathTools-3.75-Upgrade-to-3.78.patch Deleted

@@ -1,282 +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

_service:extract_file:backport-PathTools-3.78-Upgrade-to-3.80.patch Deleted

@@ -1,277 +0,0 @@
-From 2aa3d01bca010903b9cdb848e61ca45f84ce6bcf Mon Sep 17 00:00:00 2001
-From: Jitka Plesnikova <jplesnik@redhat.com>
-Date: Thu, 6 May 2021 08:31:26 +0200
-Subject: PATCH Upgrade to 3.80
- 
----
- Cwd.pm                     |   2 +-
- Cwd.xs                     |  24 +++--
- META.json                  |   2 +-
- META.yml                   |   2 +-
- 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     |   4 +-
- t/cwd.t                    |   4 +
- t/cwd_enoent.t             |   2 +
- 16 files changed, 232 insertions(+), 20 deletions(-)
- 
-diff --git a/Cwd.pm b/Cwd.pm
-index 9b173c2..6a1d2f1 100644
---- a/Cwd.pm
-+++ b/Cwd.pm
-@@ -3,7 +3,7 @@ use strict;
- use Exporter;
- 
- 
--our $VERSION = '3.78';
-+our $VERSION = '3.80';
- my $xs_version = $VERSION;
- $VERSION =~ tr/_//d;
- 
-diff --git a/Cwd.xs b/Cwd.xs
-index 8662400..223e1a6 100644
---- a/Cwd.xs
-+++ b/Cwd.xs
-@@ -84,6 +84,9 @@ bsd_realpath(const char *path, char resolvedMAXPATHLEN)
- 	unsigned symlinks;
- 	int serrno;
- 	char remainingMAXPATHLEN, next_tokenMAXPATHLEN;
-+#ifdef PERL_IMPLICIT_SYS
-+        dTHX;
-+#endif
- 
- 	serrno = errno;
- 	symlinks = 0;
-@@ -119,15 +122,24 @@ bsd_realpath(const char *path, char resolvedMAXPATHLEN)
- 
-             p = strchr(remaining, '/');
-             s = p ? p : remaining + remaining_len;
-+
-             if ((STRLEN)(s - remaining) >= (STRLEN)sizeof(next_token)) {
-                 errno = ENAMETOOLONG;
-                 return (NULL);
-             }
-             memcpy(next_token, remaining, s - remaining);
-             next_tokens - remaining = '\0';
--            remaining_len -= s - remaining;
--            if (p != NULL)
--                memmove(remaining, s + 1, remaining_len + 1);
-+
-+            /* shift first component off front of path, including '/' */
-+            if (p) {
-+                s++; /* skip '/' */
-+                remaining_len -= s - remaining;
-+                /* the +1 includes the trailing '\0' */
-+                memmove(remaining, s, remaining_len + 1);
-+            }
-+            else
-+                remaining_len = 0;
-+
-             if (resolvedresolved_len - 1 != '/') {
-                 if (resolved_len + 1 >= MAXPATHLEN) {
-                     errno = ENAMETOOLONG;
-@@ -166,8 +178,8 @@ bsd_realpath(const char *path, char resolvedMAXPATHLEN)
-             }
- #if defined(HAS_LSTAT) && defined(HAS_READLINK) && defined(HAS_SYMLINK)
-             {
--                struct stat sb;
--                if (lstat(resolved, &sb) != 0) {
-+                Stat_t sb;
-+                if (PerlLIO_lstat(resolved, &sb) != 0) {
-                     if (errno == ENOENT && p == NULL) {
-                         errno = serrno;
-                         return (resolved);
-@@ -182,7 +194,7 @@ bsd_realpath(const char *path, char resolvedMAXPATHLEN)
-                         errno = ELOOP;
-                         return (NULL);
-                     }
--                    slen = readlink(resolved, symlink, sizeof(symlink) - 1);
-+                    slen = PerlLIO_readlink(resolved, symlink, sizeof(symlink) - 1);
-                     if (slen < 0)
-                         return (NULL);
-                     symlinkslen = '\0';
-diff --git a/META.json b/META.json
-index e41b849..ad429a5 100644
---- a/META.json
-+++ b/META.json
-@@ -50,6 +50,6 @@
-          "url" : "git://perl5.git.perl.org/perl.git"
-       }
-    },
--   "version" : "3.75",
-+   "version" : "3.73",
-    "x_serialization_backend" : "JSON::PP version 2.27400_02"
- }
-diff --git a/META.yml b/META.yml
-index c53f36e..c2adfcf 100644
---- a/META.yml
-+++ b/META.yml
-@@ -26,5 +26,5 @@ resources:
-   bugtracker: https://rt.perl.org/rt3/
-   homepage: http://dev.perl.org/
-   repository: git://perl5.git.perl.org/perl.git
--version: '3.75'
-+version: '3.73'
- x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
-diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
-index 7fe3272..30d883b 100644
---- a/lib/File/Spec.pm
-+++ b/lib/File/Spec.pm
-@@ -2,7 +2,7 @@ package File::Spec;
- 
- use strict;
- 
--our $VERSION = '3.78';
-+our $VERSION = '3.80';
- $VERSION =~ tr/_//d;
- 
- my %module = (
-diff --git a/lib/File/Spec/AmigaOS.pm b/lib/File/Spec/AmigaOS.pm
-index 2b7d18a..fd9da81 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.78';
-+our $VERSION = '3.80';
- $VERSION =~ tr/_//d;
- 
- our @ISA = qw(File::Spec::Unix);
-diff --git a/lib/File/Spec/Cygwin.pm b/lib/File/Spec/Cygwin.pm
-index d44ced3..953c233 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.78';
-+our $VERSION = '3.80';
- $VERSION =~ tr/_//d;
- 
- our @ISA = qw(File::Spec::Unix);
-diff --git a/lib/File/Spec/Epoc.pm b/lib/File/Spec/Epoc.pm
-index b611cd9..fcb9e89 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.78';
-+our $VERSION = '3.80';
- $VERSION =~ tr/_//d;
- 
- require File::Spec::Unix;
-diff --git a/lib/File/Spec/Functions.pm b/lib/File/Spec/Functions.pm
-index 3f617bd..e14ad2f 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.78';
-+our $VERSION = '3.80';
- $VERSION =~ tr/_//d;
- 
- require Exporter;
-diff --git a/lib/File/Spec/Mac.pm b/lib/File/Spec/Mac.pm
-index d920d2f..8026edc 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.78';
-+our $VERSION = '3.80';
- $VERSION =~ tr/_//d;
- 
- our @ISA = qw(File::Spec::Unix);

_service:tar_scm:backport-PathTools-3.75-Upgrade-to-3.78.patch Added

@@ -0,0 +1,282 @@
+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

_service:tar_scm:backport-PathTools-3.78-Upgrade-to-3.80.patch Added

@@ -0,0 +1,277 @@
+From 2aa3d01bca010903b9cdb848e61ca45f84ce6bcf Mon Sep 17 00:00:00 2001
+From: Jitka Plesnikova <jplesnik@redhat.com>
+Date: Thu, 6 May 2021 08:31:26 +0200
+Subject: PATCH Upgrade to 3.80
+ 
+---
+ Cwd.pm                     |   2 +-
+ Cwd.xs                     |  24 +++--
+ META.json                  |   2 +-
+ META.yml                   |   2 +-
+ 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     |   4 +-
+ t/cwd.t                    |   4 +
+ t/cwd_enoent.t             |   2 +
+ 16 files changed, 232 insertions(+), 20 deletions(-)
+ 
+diff --git a/Cwd.pm b/Cwd.pm
+index 9b173c2..6a1d2f1 100644
+--- a/Cwd.pm
++++ b/Cwd.pm
+@@ -3,7 +3,7 @@ use strict;
+ use Exporter;
+ 
+ 
+-our $VERSION = '3.78';
++our $VERSION = '3.80';
+ my $xs_version = $VERSION;
+ $VERSION =~ tr/_//d;
+ 
+diff --git a/Cwd.xs b/Cwd.xs
+index 8662400..223e1a6 100644
+--- a/Cwd.xs
++++ b/Cwd.xs
+@@ -84,6 +84,9 @@ bsd_realpath(const char *path, char resolvedMAXPATHLEN)
+ 	unsigned symlinks;
+ 	int serrno;
+ 	char remainingMAXPATHLEN, next_tokenMAXPATHLEN;
++#ifdef PERL_IMPLICIT_SYS
++        dTHX;
++#endif
+ 
+ 	serrno = errno;
+ 	symlinks = 0;
+@@ -119,15 +122,24 @@ bsd_realpath(const char *path, char resolvedMAXPATHLEN)
+ 
+             p = strchr(remaining, '/');
+             s = p ? p : remaining + remaining_len;
++
+             if ((STRLEN)(s - remaining) >= (STRLEN)sizeof(next_token)) {
+                 errno = ENAMETOOLONG;
+                 return (NULL);
+             }
+             memcpy(next_token, remaining, s - remaining);
+             next_tokens - remaining = '\0';
+-            remaining_len -= s - remaining;
+-            if (p != NULL)
+-                memmove(remaining, s + 1, remaining_len + 1);
++
++            /* shift first component off front of path, including '/' */
++            if (p) {
++                s++; /* skip '/' */
++                remaining_len -= s - remaining;
++                /* the +1 includes the trailing '\0' */
++                memmove(remaining, s, remaining_len + 1);
++            }
++            else
++                remaining_len = 0;
++
+             if (resolvedresolved_len - 1 != '/') {
+                 if (resolved_len + 1 >= MAXPATHLEN) {
+                     errno = ENAMETOOLONG;
+@@ -166,8 +178,8 @@ bsd_realpath(const char *path, char resolvedMAXPATHLEN)
+             }
+ #if defined(HAS_LSTAT) && defined(HAS_READLINK) && defined(HAS_SYMLINK)
+             {
+-                struct stat sb;
+-                if (lstat(resolved, &sb) != 0) {
++                Stat_t sb;
++                if (PerlLIO_lstat(resolved, &sb) != 0) {
+                     if (errno == ENOENT && p == NULL) {
+                         errno = serrno;
+                         return (resolved);
+@@ -182,7 +194,7 @@ bsd_realpath(const char *path, char resolvedMAXPATHLEN)
+                         errno = ELOOP;
+                         return (NULL);
+                     }
+-                    slen = readlink(resolved, symlink, sizeof(symlink) - 1);
++                    slen = PerlLIO_readlink(resolved, symlink, sizeof(symlink) - 1);
+                     if (slen < 0)
+                         return (NULL);
+                     symlinkslen = '\0';
+diff --git a/META.json b/META.json
+index e41b849..ad429a5 100644
+--- a/META.json
++++ b/META.json
+@@ -50,6 +50,6 @@
+          "url" : "git://perl5.git.perl.org/perl.git"
+       }
+    },
+-   "version" : "3.75",
++   "version" : "3.73",
+    "x_serialization_backend" : "JSON::PP version 2.27400_02"
+ }
+diff --git a/META.yml b/META.yml
+index c53f36e..c2adfcf 100644
+--- a/META.yml
++++ b/META.yml
+@@ -26,5 +26,5 @@ resources:
+   bugtracker: https://rt.perl.org/rt3/
+   homepage: http://dev.perl.org/
+   repository: git://perl5.git.perl.org/perl.git
+-version: '3.75'
++version: '3.73'
+ x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
+diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
+index 7fe3272..30d883b 100644
+--- a/lib/File/Spec.pm
++++ b/lib/File/Spec.pm
+@@ -2,7 +2,7 @@ package File::Spec;
+ 
+ use strict;
+ 
+-our $VERSION = '3.78';
++our $VERSION = '3.80';
+ $VERSION =~ tr/_//d;
+ 
+ my %module = (
+diff --git a/lib/File/Spec/AmigaOS.pm b/lib/File/Spec/AmigaOS.pm
+index 2b7d18a..fd9da81 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.78';
++our $VERSION = '3.80';
+ $VERSION =~ tr/_//d;
+ 
+ our @ISA = qw(File::Spec::Unix);
+diff --git a/lib/File/Spec/Cygwin.pm b/lib/File/Spec/Cygwin.pm
+index d44ced3..953c233 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.78';
++our $VERSION = '3.80';
+ $VERSION =~ tr/_//d;
+ 
+ our @ISA = qw(File::Spec::Unix);
+diff --git a/lib/File/Spec/Epoc.pm b/lib/File/Spec/Epoc.pm
+index b611cd9..fcb9e89 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.78';
++our $VERSION = '3.80';
+ $VERSION =~ tr/_//d;
+ 
+ require File::Spec::Unix;
+diff --git a/lib/File/Spec/Functions.pm b/lib/File/Spec/Functions.pm
+index 3f617bd..e14ad2f 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.78';
++our $VERSION = '3.80';
+ $VERSION =~ tr/_//d;
+ 
+ require Exporter;
+diff --git a/lib/File/Spec/Mac.pm b/lib/File/Spec/Mac.pm
+index d920d2f..8026edc 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.78';
++our $VERSION = '3.80';
+ $VERSION =~ tr/_//d;
+ 
+ our @ISA = qw(File::Spec::Unix);

_service Changed

_service:extract_file:PathTools-3.75.tar.gz Deleted

_service:extract_file:perl-PathTools.yaml Deleted

_service:tar_scm:PathTools-3.75.tar.gz Added

_service:tar_scm:perl-PathTools-1650953486.0016fc7.tar Deleted

_service:tar_scm:perl-PathTools.yaml Added