!11 [sync] PR-10: 【轻量级 PR】：rectify the license

From: @openeuler-sync-bot 
Reviewed-by: @licunlong 
Signed-off-by: @licunlong

PathTools-3.74-Disable-VMS-tests.patch

@@ -1,230 +0,0 @@
-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
-@@ -38,7 +38,7 @@ if ( $@ ) {
-    $INC{"VMS/Filespec.pm"} = 1 ;
- }
- 
--foreach (qw(Unix Win32 VMS OS2 Mac Epoc Cygwin)) {
-+foreach (qw(Unix Win32 OS2 Mac Epoc Cygwin)) {
-     require_ok("File::Spec::$_");
- }
- 
-@@ -326,200 +326,6 @@ my @tests = (
- [ "FakeWin32->rel2abs('../','//prague_main/work')",         '\\\\prague_main\\work'           ],
- [ "FakeWin32->rel2abs('D:foo.txt')",                        'D:\\alpha\\beta\\foo.txt'        ],
- 
--[ "VMS->case_tolerant()",         '1'  ],
--
--[ "VMS->catfile('a','b','c')",    $vms_unix_rpt ? 'a/b/c' : '[.a.b]c'  ],
--[ "VMS->catfile('a','b','[]c')",  $vms_unix_rpt ? 'a/b/c' : '[.a.b]c'  ],
--[ "VMS->catfile('[.a]','b','c')", $vms_unix_rpt ? 'a/b/c' : '[.a.b]c'  ],
--[ "VMS->catfile('a/b/','c')",     $vms_unix_rpt ? 'a/b/c' : '[.a.b]c'  ],
--[ "VMS->catfile('c')",                 'c' ],
--[ "VMS->catfile('[]c')",               'c' ],
--
--[ "VMS->catfile('0','b','c')", $vms_unix_rpt ? '0/b/c' : '[.0.b]c' ],
--[ "VMS->catfile('a','0','c')", $vms_unix_rpt ? 'a/0/c' : '[.a.0]c' ],
--[ "VMS->catfile('a','b','0')", $vms_unix_rpt ? 'a/b/0' : '[.a.b]0' ],
--[ "VMS->catfile('0','0','c')", $vms_unix_rpt ? '0/0/c' : '[.0.0]c' ],
--[ "VMS->catfile('a','0','0')", $vms_unix_rpt ? 'a/0/0' : '[.a.0]0' ],
--[ "VMS->catfile('0','b','0')", $vms_unix_rpt ? '0/b/0' : '[.0.b]0' ],
--[ "VMS->catfile('0','0','0')", $vms_unix_rpt ? '0/0/0' : '[.0.0]0' ],
--
--
--[ "VMS->splitpath('file')",                                       ',,file'                                   ],
--[ "VMS->splitpath('[d1.d2.d3]')",                                 ',[d1.d2.d3],'                               ],
--[ "VMS->splitpath('[.d1.d2.d3]')",                                ',[.d1.d2.d3],'                              ],
--[ "VMS->splitpath('[d1.d2.d3]file')",                             ',[d1.d2.d3],file'                           ],
--[ "VMS->splitpath('d1/d2/d3/file')",
--       $vms_unix_rpt ? ',d1/d2/d3/,file' : ',[.d1.d2.d3],file' ],
--[ "VMS->splitpath('/d1/d2/d3/file')",
--       $vms_unix_rpt ? ',/d1/d2/d3/,file' : 'd1:,[d2.d3],file' ],
--[ "VMS->splitpath('[.d1.d2.d3]file')",                            ',[.d1.d2.d3],file'                          ],
--[ "VMS->splitpath('node::volume:[d1.d2.d3]')",                    'node::volume:,[d1.d2.d3],'                  ],
--[ "VMS->splitpath('node::volume:[d1.d2.d3]file')",                'node::volume:,[d1.d2.d3],file'              ],
--[ "VMS->splitpath('node\"access_spec\"::volume:[d1.d2.d3]')",     'node"access_spec"::volume:,[d1.d2.d3],'     ],
--[ "VMS->splitpath('node\"access_spec\"::volume:[d1.d2.d3]file')", 'node"access_spec"::volume:,[d1.d2.d3],file' ],
--
--[ "VMS->splitpath('[]')",                                         ',[],'                                       ],
--[ "VMS->splitpath('[-]')",                                        ',[-],'                                      ],
--[ "VMS->splitpath('[]file')",                                     ',[],file'                                   ],
--[ "VMS->splitpath('[-]file')",                                    ',[-],file'                                  ],
--[ "VMS->splitpath('')",                                           ',,'                                         ],
--[ "VMS->splitpath('0')",                                          ',,0'                                        ],
--[ "VMS->splitpath('[0]')",                                        ',[0],'                                      ],
--[ "VMS->splitpath('[.0]')",                                       ',[.0],'                                     ],
--[ "VMS->splitpath('[0.0.0]')",                                    ',[0.0.0],'                                  ],
--[ "VMS->splitpath('[.0.0.0]')",                                   ',[.0.0.0],'                                 ],
--[ "VMS->splitpath('[0]0')",                                       ',[0],0'                                     ],
--[ "VMS->splitpath('[0.0.0]0')",                                   ',[0.0.0],0'                                 ],
--[ "VMS->splitpath('[.0.0.0]0')",                                  ',[.0.0.0],0'                                ],
--[ "VMS->splitpath('0/0')",    $vms_unix_rpt ? ',0/,0' : ',[.0],0'  ],
--[ "VMS->splitpath('0/0/0')",  $vms_unix_rpt ? ',0/0/,0' : ',[.0.0],0'  ],
--[ "VMS->splitpath('/0/0')",   $vms_unix_rpt ? ',/0/,0' : '0:,[000000],0'  ],
--[ "VMS->splitpath('/0/0/0')", $vms_unix_rpt ? ',/0/0/,0' : '0:,[0],0'  ],
--[ "VMS->splitpath('d1',1)",                                       ',d1,'                                       ],
--# $no_file tests
--[ "VMS->splitpath('[d1.d2.d3]',1)",                               ',[d1.d2.d3],'                               ],
--[ "VMS->splitpath('[.d1.d2.d3]',1)",                              ',[.d1.d2.d3],'                              ],
--[ "VMS->splitpath('d1/d2/d3',1)",  $vms_unix_rpt ? ',d1/d2/d3,' : ',[.d1.d2.d3],' ],
--[ "VMS->splitpath('/d1/d2/d3',1)", $vms_unix_rpt ? ',/d1/d2/d3,' : 'd1:,[d2.d3],' ],
--[ "VMS->splitpath('node::volume:[d1.d2.d3]',1)",                  'node::volume:,[d1.d2.d3],'                  ],
--[ "VMS->splitpath('node\"access_spec\"::volume:[d1.d2.d3]',1)",   'node"access_spec"::volume:,[d1.d2.d3],'     ],
--[ "VMS->splitpath('[]',1)",                                       ',[],'                                       ],
--[ "VMS->splitpath('[-]',1)",                                      ',[-],'                                      ],
--[ "VMS->splitpath('',1)",                                         ',,'                                         ],
--[ "VMS->splitpath('0',1)",                                        ',0,'                                        ],
--[ "VMS->splitpath('[0]',1)",                                      ',[0],'                                      ],
--[ "VMS->splitpath('[.0]',1)",                                     ',[.0],'                                     ],
--[ "VMS->splitpath('[0.0.0]',1)",                                  ',[0.0.0],'                                  ],
--[ "VMS->splitpath('[.0.0.0]',1)",                                 ',[.0.0.0],'                                 ],
--[ "VMS->splitpath('0/0',1)",    $vms_unix_rpt ? ',0/0,' : ',[.0.0],' ],
--[ "VMS->splitpath('0/0/0',1)",  $vms_unix_rpt ? ',0/0/0,' : ',[.0.0.0],' ],
--[ "VMS->splitpath('/0/0',1)",   $vms_unix_rpt ? ',/0/0,' : '0:,[000000.0],' ],
--[ "VMS->splitpath('/0/0/0',1)", $vms_unix_rpt ? ',/0/0/0,' : '0:,[0.0],' ],
--
--[ "VMS->catpath('','','file')",                                       'file'                                     ],
--[ "VMS->catpath('','[d1.d2.d3]','')",                                 '[d1.d2.d3]'                               ],
--[ "VMS->catpath('','[.d1.d2.d3]','')",                                '[.d1.d2.d3]'                              ],
--[ "VMS->catpath('','[d1.d2.d3]','file')",                             '[d1.d2.d3]file'                           ],
--[ "VMS->catpath('','[.d1.d2.d3]','file')",                            '[.d1.d2.d3]file'                          ],
--[ "VMS->catpath('','d1/d2/d3','file')",
--                             $vms_unix_rpt ? 'd1/d2/d3/file' : '[.d1.d2.d3]file' ],
--[ "VMS->catpath('v','d1/d2/d3','file')",                              'v:[.d1.d2.d3]file' ],
--[ "VMS->catpath('v','','file')",                                      'v:file' ],
--[ "VMS->catpath('v','w:[d1.d2.d3]','file')",                          'v:[d1.d2.d3]file'                         ],
--[ "VMS->catpath('node::volume:','[d1.d2.d3]','')",                    'node::volume:[d1.d2.d3]'                  ],
--[ "VMS->catpath('node::volume:','[d1.d2.d3]','file')",                'node::volume:[d1.d2.d3]file'              ],
--[ "VMS->catpath('node\"access_spec\"::volume:','[d1.d2.d3]','')",     'node"access_spec"::volume:[d1.d2.d3]'     ],
--[ "VMS->catpath('node\"access_spec\"::volume:','[d1.d2.d3]','file')", 'node"access_spec"::volume:[d1.d2.d3]file' ],
--
--[ "VMS->canonpath('')",                                 ''                        ],
--[ "VMS->canonpath('volume:[d1]file')",                  $vms_unix_rpt ? '/volume/d1/file'               : 'volume:[d1]file'                ],
--[ "VMS->canonpath('volume:[d1.-.d2.][d3.d4.-]')",       $vms_unix_rpt ? '/volume/d2/d3/'               : 'volume:[d2.d3]'                  ],
--[ "VMS->canonpath('volume:[000000.d1]d2.dir;1')",       $vms_unix_rpt ? '/volume/d1/d2.dir.1'          : 'volume:[d1]d2.dir;1'             ],
--[ "VMS->canonpath('volume:[d1.d2.d3]file.txt')", 	$vms_unix_rpt ? '/volume/d1/d2/d3/file.txt'    : 'volume:[d1.d2.d3]file.txt'       ],
--[ "VMS->canonpath('[d1.d2.d3]file.txt')", 		$vms_unix_rpt ? '/sys$disk/d1/d2/d3/file.txt'  : '[d1.d2.d3]file.txt'              ],
--[ "VMS->canonpath('volume:[-.d1.d2.d3]file.txt')", 	$vms_unix_rpt ? '/volume/../d1/d2/d3/file.txt' : 'volume:[-.d1.d2.d3]file.txt'     ],
--[ "VMS->canonpath('[-.d1.d2.d3]file.txt')", 		$vms_unix_rpt ? '../d1/d2/d3/file.txt'         : '[-.d1.d2.d3]file.txt'            ],
--[ "VMS->canonpath('volume:[--.d1.d2.d3]file.txt')", 	$vms_unix_rpt ? '/volume/../../d1/d2/d3/file.txt' : 'volume:[--.d1.d2.d3]file.txt' ],
--[ "VMS->canonpath('[--.d1.d2.d3]file.txt')", 		$vms_unix_rpt ? '../../d1/d2/d3/file.txt'      : '[--.d1.d2.d3]file.txt'           ],
--[ "VMS->canonpath('volume:[d1.-.d2.d3]file.txt')", 	$vms_unix_rpt ? '/volume/d2/d3/file.txt'       : 'volume:[d2.d3]file.txt'          ],
--[ "VMS->canonpath('[d1.-.d2.d3]file.txt')", 		$vms_unix_rpt ? '/sys$disk/d2/d3/file.txt'     : '[d2.d3]file.txt'                 ],
--[ "VMS->canonpath('volume:[d1.--.d2.d3]file.txt')", 	$vms_unix_rpt ? '/volume/../d2/d3/file.txt'    : 'volume:[-.d2.d3]file.txt'        ],
--[ "VMS->canonpath('[d1.--.d2.d3]file.txt')", 		$vms_unix_rpt ? '../d2/d3/file.txt'            : '[-.d2.d3]file.txt'               ],
--[ "VMS->canonpath('volume:[d1.d2.-.d3]file.txt')", 	$vms_unix_rpt ? '/volume/d1/d3/file.txt'       : 'volume:[d1.d3]file.txt'          ],
--[ "VMS->canonpath('[d1.d2.-.d3]file.txt')", 		$vms_unix_rpt ? '/sys$disk/d1/d3/file.txt'     : '[d1.d3]file.txt'                 ],
--[ "VMS->canonpath('volume:[d1.d2.--.d3]file.txt')", 	$vms_unix_rpt ? '/volume/d3/file.txt'          : 'volume:[d3]file.txt'             ],
--[ "VMS->canonpath('[d1.d2.--.d3]file.txt')", 		$vms_unix_rpt ? '/sys$disk/d3/file.txt'        : '[d3]file.txt'                    ],
--[ "VMS->canonpath('volume:[d1.d2.d3.-]file.txt')", 	$vms_unix_rpt ? '/volume/d1/d2/file.txt'       : 'volume:[d1.d2]file.txt'          ],
--[ "VMS->canonpath('[d1.d2.d3.-]file.txt')", 		$vms_unix_rpt ? '/sys$disk/d1/d2/file.txt'     : '[d1.d2]file.txt'                 ],
--[ "VMS->canonpath('volume:[d1.d2.d3.--]file.txt')", 	$vms_unix_rpt ? '/volume/d1/file.txt'          : 'volume:[d1]file.txt'             ],
--[ "VMS->canonpath('[d1.d2.d3.--]file.txt')", 		$vms_unix_rpt ? '/sys$disk/d1/file.txt'        : '[d1]file.txt'                    ],
--[ "VMS->canonpath('volume:[d1.000000.][000000.][d3.--]file.txt')", $vms_unix_rpt ? '/volume/d1/file.txt'
--                                                                                 : 'volume:[d1]file.txt'                                   ],
--[ "VMS->canonpath('[d1.000000.][000000.][d3.--]file.txt')", 		$vms_unix_rpt ? '/sys$disk/d1/file.txt'
--                                                                                      : '[d1]file.txt'                                     ],
--[ "VMS->canonpath('volume:[d1.000000.][000000.][d2.000000]file.txt')",	$vms_unix_rpt ? '/volume/d1/000000/d2/000000/file.txt'
--                                                                                      : 'volume:[d1.000000.d2.000000]file.txt'             ],
--[ "VMS->canonpath('[d1.000000.][000000.][d2.000000]file.txt')", 	$vms_unix_rpt ? '/sys$disk/d1/000000/d2/000000/file.txt'
--                                                                                      : '[d1.000000.d2.000000]file.txt'                    ],
--[ "VMS->canonpath('volume:[d1.000000.][000000.][d3.--.000000]file.txt')", $vms_unix_rpt ? '/volume/d1/000000/file.txt'
--                                                                                        : 'volume:[d1.000000]file.txt'                     ],
--[ "VMS->canonpath('[d1.000000.][000000.][d3.--.000000]file.txt')", 	$vms_unix_rpt ? '/sys$disk/d1/000000/file.txt'
--                                                                                      : '[d1.000000]file.txt'                              ],
--[ "VMS->canonpath('volume:[d1.000000.][000000.][-.-.000000]file.txt')",	$vms_unix_rpt ? '/volume/file.txt'
--                                                                                      : 'volume:[000000]file.txt'                          ],
--[ "VMS->canonpath('[d1.000000.][000000.][--.-.000000]file.txt')", 	$vms_unix_rpt ? '../file.txt'  : '[-.000000]file.txt'              ],
--[ "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->splitdir('')",            ''          ],
--[ "VMS->splitdir('[]')",          ''          ],
--[ "VMS->splitdir('d1.d2.d3')",    'd1,d2,d3'  ],
--[ "VMS->splitdir('[d1.d2.d3]')",  'd1,d2,d3'  ],
--[ "VMS->splitdir('.d1.d2.d3')",   'd1,d2,d3' ],
--[ "VMS->splitdir('[.d1.d2.d3]')", 'd1,d2,d3' ],
--[ "VMS->splitdir('.-.d2.d3')",    '-,d2,d3'  ],
--[ "VMS->splitdir('[.-.d2.d3]')",  '-,d2,d3'  ],
--[ "VMS->splitdir('[d1.d2]')",  		'd1,d2'  ],
--[ "VMS->splitdir('[d1-.--d2]')",  	'd1-,--d2'  ],
--[ "VMS->splitdir('[d1---.-.d2]')",  	'd1---,-,d2'  ],
--[ "VMS->splitdir('[d1.---.d2]')",  	'd1,-,-,-,d2'  ],
--[ "VMS->splitdir('[d1---d2]')",  	'd1---d2'  ],
--[ "VMS->splitdir('[d1.][000000.d2]')",  'd1,d2'  ],
--[ "VMS->splitdir('[.d1.d2^.d3]')", 'd1,d2^.d3' ],
--
--[ "VMS->catdir('')",                            ''                 ],
--[ "VMS->catdir('foo')",            $vms_unix_rpt ? 'foo'      : '[.foo]'      ],
--[ "VMS->catdir('d1','d2','d3')",   $vms_unix_rpt ? 'd1/d2/d3' : '[.d1.d2.d3]' ],
--[ "VMS->catdir('d1','d2/','d3')",  $vms_unix_rpt ? 'd1/d2/d3' : '[.d1.d2.d3]' ],
--[ "VMS->catdir('','d1','d2','d3')",$vms_unix_rpt ? '/d1/d2/d3' : '[.d1.d2.d3]' ],
--[ "VMS->catdir('','-','d2','d3')", $vms_unix_rpt ? '-/d2/d3'   : '[-.d2.d3]' ],
--[ "VMS->catdir('','-','','d3')",   $vms_unix_rpt ? '-/d3'      : '[-.d3]' ],
--[ "VMS->catdir('dir.dir','d2.dir','d3.dir')", $vms_unix_rpt ? 'dir/d2/d3'
--                                                            : '[.dir.d2.d3]' ],
--[ "VMS->catdir('[.name]')",             $vms_unix_rpt ? 'name/'     : '[.name]' ],
--[ "VMS->catdir('[.name]','[.name]')",   $vms_unix_rpt ? 'name/name' :'[.name.name]' ],
--[ "VMS->catdir('/a/b/c','[-]')",        $vms_unix_rpt ? '/a/b/c/..' : 'a:[b]'],
--[ "VMS->catdir('a:[b.c]','..')",        $vms_unix_rpt ? '/a/b/c/..' : 'a:[b]'],
--
--[ "VMS->abs2rel('node::volume:[t1.t2.t3]','node::volume:[t1.t2.t3]')", $vms_unix_rpt ? './' : '[]' ],
--[ "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' ],
--[ "VMS->abs2rel('v:[t1.t2.t3]file','v:[t1.t2]')",         $vms_unix_rpt ? 't3/file' : '[.t3]file' ],
--[ "VMS->abs2rel('[t1.t2.t4]','[t1.t2.t3]')",              $vms_unix_rpt ? '../t4/'  : '[-.t4]'    ],
--[ "VMS->abs2rel('[t1.t2]file','[t1.t2.t3]')",             $vms_unix_rpt ? '../file' : '[-]file'   ],
--[ "VMS->abs2rel('[t1.t2.t3.t4]','[t1.t2.t3]')",           $vms_unix_rpt ? 't4/'     : '[.t4]'     ],
--[ "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.-.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]'    ],
--[ "VMS->rel2abs('[.t4.t5]','[t1.t2.t3]')",       $vms_unix_rpt ? '/sys$disk/t1/t2/t3/t4/t5/' : '[t1.t2.t3.t4.t5]' ],
--[ "VMS->rel2abs('[]','[t1.t2.t3]')",             $vms_unix_rpt ? '/sys$disk/t1/t2/t3/'       : '[t1.t2.t3]'       ],
--[ "VMS->rel2abs('[-]','[t1.t2.t3]')",            $vms_unix_rpt ? '/sys$disk/t1/t2/'          : '[t1.t2]'          ],
--[ "VMS->rel2abs('[-.t4]','[t1.t2.t3]')",         $vms_unix_rpt ? '/sys$disk/t1/t2/t4/'       : '[t1.t2.t4]'       ],
--[ "VMS->rel2abs('[t1]','[t1.t2.t3]')",           $vms_unix_rpt ? '/sys$disk/t1/'             : '[t1]'             ],
--
--[ "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
-

backport-PathTools-3.75-Upgrade-to-3.78.patch

@@ -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
+--- 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

backport-PathTools-3.78-Upgrade-to-3.80.patch

@@ -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 resolved[MAXPATHLEN])
+ 	unsigned symlinks;
+ 	int serrno;
+ 	char remaining[MAXPATHLEN], next_token[MAXPATHLEN];
++#ifdef PERL_IMPLICIT_SYS
++        dTHX;
++#endif
+ 
+ 	serrno = errno;
+ 	symlinks = 0;
+@@ -119,15 +122,24 @@ bsd_realpath(const char *path, char resolved[MAXPATHLEN])
+ 
+             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_token[s - 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 (resolved[resolved_len - 1] != '/') {
+                 if (resolved_len + 1 >= MAXPATHLEN) {
+                     errno = ENAMETOOLONG;
+@@ -166,8 +178,8 @@ bsd_realpath(const char *path, char resolved[MAXPATHLEN])
+             }
+ #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 resolved[MAXPATHLEN])
+                         errno = ELOOP;
+                         return (NULL);
+                     }
+-                    slen = readlink(resolved, symlink, sizeof(symlink) - 1);
++                    slen = PerlLIO_readlink(resolved, symlink, sizeof(symlink) - 1);
+                     if (slen < 0)
+                         return (NULL);
+                     symlink[slen] = '\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);
+diff --git a/lib/File/Spec/OS2.pm b/lib/File/Spec/OS2.pm
+index 603781a..3c35ba9 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.78';
++our $VERSION = '3.80';
+ $VERSION =~ tr/_//d;
+ 
+ our @ISA = qw(File::Spec::Unix);
+diff --git a/lib/File/Spec/Unix.pm b/lib/File/Spec/Unix.pm
+index 6749e60..c06d18f 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.78';
++our $VERSION = '3.80';
+ $VERSION =~ tr/_//d;
+ 
+ =head1 NAME
+diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm
+index 5934010..1537442 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.78';
++our $VERSION = '3.80';
+ $VERSION =~ tr/_//d;
+ 
+ our @ISA = qw(File::Spec::Unix);
+@@ -84,7 +84,7 @@ sub tmpdir {
+ MSWin32 case-tolerance depends on GetVolumeInformation() $ouFsFlags == FS_CASE_SENSITIVE,
+ indicating the case significance when comparing file specifications.
+ Since XP FS_CASE_SENSITIVE is effectively disabled for the NT subsubsystem.
+-See http://cygwin.com/ml/cygwin/2007-07/msg00891.html
++See L<http://cygwin.com/ml/cygwin/2007-07/msg00891.html>
+ Default: 1
+ 
+ =cut
+diff --git a/t/cwd.t b/t/cwd.t
+index c056938..d155e33 100644
+--- a/t/cwd.t
++++ b/t/cwd.t
+@@ -187,6 +187,10 @@ rmtree($test_dirs[0], 0, 0);
+ SKIP: {
+     skip "no symlinks on this platform", 2+$EXTRA_ABSPATH_TESTS unless $Config{d_symlink} && $^O !~ m!^(qnx|nto)!;
+ 
++    # on Win32 GetCurrentDirectory() includes the symlink if
++    # you chdir() to a path including the symlink.
++    skip "Win32 symlinks are unusual", 2+$EXTRA_ABSPATH_TESTS if $^O eq "MSWin32";
++
+     my $file = "linktest";
+     mkpath([$Test_Dir], 0, 0777);
+     symlink $Test_Dir, $file;
+diff --git a/t/cwd_enoent.t b/t/cwd_enoent.t
+index 510c65e..2e94bad 100644
+--- a/t/cwd_enoent.t
++++ b/t/cwd_enoent.t
+@@ -26,6 +26,8 @@ foreach my $type (qw(regular perl)) {
+ 	    if $type eq "perl" &&
+ 		!(($Config{prefix} =~ m/\//) && $^O ne "cygwin");
+ 
++        # https://github.com/Perl/perl5/issues/16525
++        # https://bugs.dragonflybsd.org/issues/3250
+ 	skip "getcwd() doesn't fail on non-existent directories on this platform", 4
+ 	    if $type eq 'regular' && $^O eq 'dragonfly';
+ 
+-- 
+2.30.2

perl-PathTools.spec

@@ -1,35 +1,29 @@
+%global base_version 3.75
 Name:           perl-PathTools
-Version:        3.75
-Release:        3
+Version:        3.80
+Release:        2
 Summary:        PathTools Perl Module (Cwd, File::Spec)
-License:        (GPL+ Artistic) and BSD
+License:        (GPL+ or Artistic) and BSD
 URL:            https://metacpan.org/release/PathTools
-Source0:        https://cpan.metacpan.org/authors/id/X/XS/XSAWYERX/PathTools-%{version}.tar.gz
-Patch0:         PathTools-3.74-Disable-VMS-tests.patch
+Source0:        https://cpan.metacpan.org/authors/id/X/XS/XSAWYERX/PathTools-%{base_version}.tar.gz
 
-BuildRequires:  git gcc
-BuildRequires:  perl-generators
-BuildRequires:  perl-interpreter
-BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76
-BuildRequires:  perl(Test::More) >= 0.88
+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)
-Requires:       perl(File::Basename)
-Requires:       perl(Errno)
-Requires:       perl(Scalar::Util)
-
+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-%{version} -p1 -S git
-#Disable VMS tests
-rm -f lib/File/Spec/VMS.pm
-sed -i -e '/VMS.pm/d' MANIFEST
+%autosetup -n PathTools-%{base_version} -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor
@@ -55,7 +49,22 @@ make test
 %{_mandir}/man3/*
 
 %changelog
-* Thu Sep 26 2019 shenyangyang<shenyangyang4@huawei.com> - 3.75-3
+* Tue Oct 25 2022 jiangchuangang <jianghcuangang@huawei.com> - 3.80-2
+- rectify the license
+
+* Thu Dec 30 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

perl-PathTools.yaml

@@ -0,0 +1,4 @@
+version_control: metacpan
+src_repo: PathTools
+tag_prefix: ^v
+seperator: "."