This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
File::Path: synch with CPAN version 2.18
authorJames E Keenan <jkeenan@cpan.org>
Thu, 5 Nov 2020 19:47:37 +0000 (14:47 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Thu, 5 Nov 2020 19:47:37 +0000 (14:47 -0500)
No change in functionality; change in tests only.

Porting/Maintainers.pl
cpan/File-Path/lib/File/Path.pm
cpan/File-Path/t/Path.t

index 14e4cd4..26e0502 100755 (executable)
@@ -513,7 +513,7 @@ use File::Glob qw(:case);
     },
 
     'File::Path' => {
-        'DISTRIBUTION' => 'JKEENAN/File-Path-2.17.tar.gz',
+        'DISTRIBUTION' => 'JKEENAN/File-Path-2.18.tar.gz',
         'FILES'        => q[cpan/File-Path],
         'EXCLUDED'     => [
             qw(t/Path-Class.t),
index 681bb44..3f7545f 100644 (file)
@@ -18,7 +18,7 @@ BEGIN {
 
 use Exporter ();
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
-$VERSION   = '2.17';
+$VERSION   = '2.18';
 $VERSION   = eval $VERSION;
 @ISA       = qw(Exporter);
 @EXPORT    = qw(mkpath rmtree);
@@ -633,7 +633,7 @@ File::Path - Create or remove directory trees
 
 =head1 VERSION
 
-2.17 - released July 18 2020.
+2.18 - released November 4 2020.
 
 =head1 SYNOPSIS
 
index 8ea3d87..b265aee 100644 (file)
@@ -3,7 +3,7 @@
 
 use strict;
 
-use Test::More tests => 165;
+use Test::More tests => 167;
 use Config;
 use Fcntl ':mode';
 use lib './t';
@@ -845,7 +845,18 @@ SKIP: {
     my ($least_deep, $next_deepest, $deepest) =
         create_3_level_subdirs( qw| b5wj8CJcc7gl XTJe2C3WGLg5 VZ_y2T0XfKu3 | );
     my (@created, $error);
+    my $warn;
+    local $SIG{__WARN__} = sub { $warn = shift };
     @created = mkpath($deepest, { mode => 0711, uid => $>, error => \$error });
+    SKIP: {
+        my $skip_count = 1;
+        skip "Warning should only appear on Windows", $skip_count
+            unless $^O eq 'MSWin32';
+        like($warn,
+            qr/Option\(s\) implausible on Win32 passed to mkpath\(\) or make_path\(\)/,
+            'make_path with final hashref warned due to options implausible on Win32'
+        );
+    }
     is(scalar(@created), 3, "Provide valid 'uid' argument: 3 subdirectories created");
 
     cleanup_3_level_subdirs($least_deep);
@@ -897,7 +908,18 @@ SKIP: {
     my ($least_deep, $next_deepest, $deepest) =
         create_3_level_subdirs( qw| BEcigvaBNisY rd4lJ1iZRyeS OyQnDPIBxP2K | );
     my (@created, $error);
+    my $warn;
+    local $SIG{__WARN__} = sub { $warn = shift };
     @created = mkpath($deepest, { mode => 0711, group => $(, error => \$error });
+    SKIP: {
+        my $skip_count = 1;
+        skip "Warning should only appear on Windows", $skip_count
+            unless $^O eq 'MSWin32';
+        like($warn,
+            qr/Option\(s\) implausible on Win32 passed to mkpath\(\) or make_path\(\)/,
+            'make_path with final hashref warned due to options implausible on Win32'
+        );
+    }
     is(scalar(@created), 3, "Provide valid 'group' argument: 3 subdirectories created");
 
     cleanup_3_level_subdirs($least_deep);