X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FFile%2FTemp.pm;h=6f351dfa6cec91649e5810799815f464f7204a2d;hb=35c0985d87e203a100f5c5fc6518bee6a2e2fd9d;hp=0df1af4941168a80c52066804d45d727c16b723d;hpb=d1be9408a3c14848d30728674452e191ba5fffaa;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm
index 0df1af4..6f351df 100644
--- a/lib/File/Temp.pm
+++ b/lib/File/Temp.pm
@@ -472,14 +472,14 @@ sub _gettemp {
       if ( $open_success ) {
 
 	# Reset umask
-	umask($umask);
+	umask($umask) if defined $umask;
 
 	# Opened successfully - return file handle and name
 	return ($fh, $path);
 
       } else {
 	# Reset umask
-	umask($umask);
+	umask($umask) if defined $umask;
 
 	# Error opening file - abort with error
 	# if the reason was anything but EEXIST
@@ -503,13 +503,13 @@ sub _gettemp {
       if (mkdir( $path, 0700)) {
 	# created okay
 	# Reset umask
-	umask($umask);
+	umask($umask) if defined $umask;
 
 	return undef, $path;
       } else {
 
 	# Reset umask
-	umask($umask);
+	umask($umask) if defined $umask;
 
 	# Abort with error if the reason for failure was anything
 	# except EEXIST