In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ef6679300b05434a1612a4d8732b7de5770f6778?hp=67083b7b2d5c1863032b4a0ebb7156a4249c645a>
- Log ----------------------------------------------------------------- commit ef6679300b05434a1612a4d8732b7de5770f6778 Author: Tony Cook <[email protected]> Date: Mon Apr 4 14:52:21 2016 +1000 [perl #127760] add CUSTOMIZED for File-Path https://github.com/rpcme/File-Path/pull/34 M Porting/Maintainers.pl M cpan/File-Path/lib/File/Path.pm M t/porting/customized.dat commit 00737bb2d039668e3fddfe5c064966f5bf97b6e0 Author: Tony Cook <[email protected]> Date: Wed Mar 30 15:39:11 2016 +1100 [perl #127760] skip the Win32 UNC path tests on Win2k and older Windows 2000 doesn't seem to support a UNC path as a current directory - setting the current directory to a UNC path and then trying to stat(".") results in a file not found or similar error. This does work on Windows XP and later. M cpan/File-Path/t/Path_win32.t ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 ++ cpan/File-Path/lib/File/Path.pm | 2 +- cpan/File-Path/t/Path_win32.t | 3 +++ t/porting/customized.dat | 2 ++ 4 files changed, 8 insertions(+), 1 deletion(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 14814e9..d861ccb 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -546,6 +546,8 @@ use File::Glob qw(:case); qw(t/Path-Class.t), qr{^xt/}, ], + # https://github.com/rpcme/File-Path/pull/34 + 'CUSTOMIZED' => [ qw( lib/File/Path.pm t/Path_win32.t ) ], }, 'File::Temp' => { diff --git a/cpan/File-Path/lib/File/Path.pm b/cpan/File-Path/lib/File/Path.pm index 36f12cc..034da1e 100644 --- a/cpan/File-Path/lib/File/Path.pm +++ b/cpan/File-Path/lib/File/Path.pm @@ -18,7 +18,7 @@ BEGIN { use Exporter (); use vars qw($VERSION @ISA @EXPORT @EXPORT_OK); -$VERSION = '2.12'; +$VERSION = '2.12_01'; $VERSION = eval $VERSION; @ISA = qw(Exporter); @EXPORT = qw(mkpath rmtree); diff --git a/cpan/File-Path/t/Path_win32.t b/cpan/File-Path/t/Path_win32.t index c2b2f28..4716882 100644 --- a/cpan/File-Path/t/Path_win32.t +++ b/cpan/File-Path/t/Path_win32.t @@ -7,6 +7,9 @@ use Cwd; use File::Spec::Functions; plan skip_all => 'not win32' unless $^O eq 'MSWin32'; +my ($ignore, $major, $minor, $build, $id) = Win32::GetOSVersion(); +plan skip_all => "WinXP or later" + unless $id >= 2 && ($major > 5 || $major == 5 && $minor >= 1); plan tests => 3; my $tmp_base = catdir( diff --git a/t/porting/customized.dat b/t/porting/customized.dat index c48ba7e..f871a32 100644 --- a/t/porting/customized.dat +++ b/t/porting/customized.dat @@ -36,6 +36,8 @@ ExtUtils::MakeMaker cpan/ExtUtils-MakeMaker/t/echo.t 37aec8f794c52e037540757eb5b ExtUtils::MakeMaker cpan/ExtUtils-MakeMaker/t/lib/MakeMaker/Test/NoXS.pm 371cdff1b2375017907cfbc9c8f4a31f5ad10582 ExtUtils::MakeMaker cpan/ExtUtils-MakeMaker/t/prereq.t 53bda2c549fd13a6b6c13a070ca6bc79883081c0 ExtUtils::MakeMaker cpan/ExtUtils-MakeMaker/t/vstrings.t 90035a2bdbf45f15b9c3196d072d7cba7e662871 +File::Path cpan/File-Path/lib/File/Path.pm fd8ce4420a0c113d3f47dd3223859743655c1da8 +File::Path cpan/File-Path/t/Path_win32.t 94b9276557ce7f80b91f6fd9bfa7a0cd9bf9683e IPC::SysV cpan/IPC-SysV/lib/IPC/Msg.pm 88865a2c7a06351cf10e08addd077bbdea02fb60 IPC::SysV cpan/IPC-SysV/lib/IPC/Semaphore.pm 04f0d11b7d0babf8e41ccc917cccecc4a3ff9050 IPC::SysV cpan/IPC-SysV/lib/IPC/SharedMem.pm 85dea09a5bb625fc1fdda433909633fda05ea831 -- Perl5 Master Repository
