--- ./lib/File/Path.pm-pre	Wed Aug 13 23:52:38 2003
+++ ./lib/File/Path.pm	Thu Sep 18 11:30:18 2003
@@ -157,7 +157,8 @@ sub mkpath {
  	}
 	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
 	    croak "mkdir $path: $e" unless -d $path;
 	}
