File::Path::mkpath reports the wrong error

	Message-ID: <19981021131203.A15661@excitecorp.com>

p4raw-id: //depot/perl@2069

diff --git a/lib/File/Path.pm b/lib/File/Path.pm
index 09c52a4..225ecab 100644 (file)
--- a/lib/File/Path.pm
+++ b/lib/File/Path.pm
@@ -135,8 +135,9 @@ sub mkpath {
        }
        print "mkdir $path\n" if $verbose;
        unless (mkdir($path,$mode)) {
-           # allow for another process to have created it meanwhile
-           croak "mkdir $path: $!" unless -d $path;
+         my $e = $!;
+         # allow for another process to have created it meanwhile
+         croak "mkdir $path: $e" unless -d $path;
        }
        push(@created, $path);
     }