This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
File-Path: sync in CPAN version 2.17
authorJames E Keenan <jkeenan@cpan.org>
Sun, 26 Jul 2020 01:52:46 +0000 (21:52 -0400)
committerJames E Keenan <jkeenan@cpan.org>
Sun, 26 Jul 2020 01:52:46 +0000 (21:52 -0400)
Porting/Maintainers.pl
cpan/File-Path/lib/File/Path.pm
cpan/File-Path/t/Path_root.t

index 64cfc79..3f81c77 100755 (executable)
@@ -505,7 +505,7 @@ use File::Glob qw(:case);
     },
 
     'File::Path' => {
-        'DISTRIBUTION' => 'JKEENAN/File-Path-2.16.tar.gz',
+        'DISTRIBUTION' => 'JKEENAN/File-Path-2.17.tar.gz',
         'FILES'        => q[cpan/File-Path],
         'EXCLUDED'     => [
             qw(t/Path-Class.t),
index 22e53f8..681bb44 100644 (file)
@@ -18,7 +18,7 @@ BEGIN {
 
 use Exporter ();
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
-$VERSION   = '2.16';
+$VERSION   = '2.17';
 $VERSION   = eval $VERSION;
 @ISA       = qw(Exporter);
 @EXPORT    = qw(mkpath rmtree);
@@ -633,7 +633,7 @@ File::Path - Create or remove directory trees
 
 =head1 VERSION
 
-2.16 - released August 31 2018.
+2.17 - released July 18 2020.
 
 =head1 SYNOPSIS
 
@@ -1277,7 +1277,7 @@ Contributors to File::Path, in alphabetical order by first name.
 =head1 COPYRIGHT
 
 This module is copyright (C) Charles Bailey, Tim Bunce, David Landgren,
-James Keenan and Richard Elberger 1995-2018. All rights reserved.
+James Keenan and Richard Elberger 1995-2020. All rights reserved.
 
 =head1 LICENSE
 
index 8af39f7..6050c2e 100644 (file)
@@ -112,7 +112,6 @@ sub max_g {
   my $max_gid   = 0;
   my $max_group = undef;
   while ( my @g = getgrent() ) {
-    print Dumper @g;
     if ($max_gid < $g[2]) {
       $max_gid = $g[2];
       $max_group = $g[0];