Let File::Path report the extended system error message

when available (Ilya Zakharevich)

p4raw-id: //depot/perl@30002

1 files changed, 4 insertions, 3 deletions

diff --git a/lib/File/Path.pm b/lib/File/Path.pm
index 793336e27c..002b9efb20 100644
--- a/lib/File/Path.pm
+++ b/lib/File/Path.pm
@@ -125,7 +125,7 @@ use Exporter ();
 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 @@ sub mkpath {
 	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;
 	}