Change 30002: Let File::Path report the extended system error message

[Rafael Garcia-Suarez]

Change 30002 by [EMAIL PROTECTED] on 2007/01/26 11:21:17

        Let File::Path report the extended system error message
        when available (Ilya Zakharevich)

Affected files ...

... //depot/perl/lib/File/Path.pm#41 edit

Differences ...

==== //depot/perl/lib/File/Path.pm#41 (text) ====
Index: perl/lib/File/Path.pm
--- perl/lib/File/Path.pm#40~28802~     2006-09-07 07:12:14.000000000 -0700
+++ perl/lib/File/Path.pm       2007-01-26 03:21:17.000000000 -0800
@@ -125,7 +125,7 @@
 use strict;
 use warnings;
 
-our $VERSION = "1.08";
+our $VERSION = "1.09";
 our @ISA = qw( Exporter );
 our @EXPORT = qw( mkpath rmtree );
 
@@ -167,10 +167,11 @@
        my $parent = File::Basename::dirname($path);
        unless (-d $parent or $path eq $parent) {
            push(@created,mkpath($parent, $verbose, $mode));
-       }
+       }
        print "mkdir $path\n" if $verbose;
        unless (mkdir($path,$mode)) {
-           my $e = $!;
+           my ($e, $e1) = ($!, $^E);
+           $e .= "; $e1" if $e ne $e1;
            # allow for another process to have created it meanwhile
            $! = $e, croak ("mkdir $path: $e") unless -d $path;
        }
End of Patch.