This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
File::Find: diagnostics in case of a failed chdir
authorSlaven Rezic <slaven@rezic.de>
Thu, 12 Sep 2013 12:04:27 +0000 (14:04 +0200)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 12 Sep 2013 19:49:23 +0000 (12:49 -0700)
ext/File-Find/lib/File/Find.pm

index 99b868e..a179998 100644 (file)
@@ -3,7 +3,7 @@ use 5.006;
 use strict;
 use warnings;
 use warnings::register;
-our $VERSION = '1.24';
+our $VERSION = '1.25';
 require Exporter;
 require Cwd;
 
@@ -809,7 +809,7 @@ sub _find_dir($$$) {
                else {
                    $tmp = join('/',('..') x ($CdLvl-$Level));
                }
-               die "Can't cd to $tmp from $dir_name"
+               die "Can't cd to $tmp from $dir_name: $!"
                    unless chdir ($tmp);
                $CdLvl = $Level;
            }