PERFORCE change 12330 for review

Change 12330 by pudge@pudge-mobile on 2001/10/03 19:17:25

	Quiet the warnings about using undef value

Affected files ...

... //depot/maint-5.6/macperl/lib/File/Temp.pm#4 edit

Differences ...

==== //depot/maint-5.6/macperl/lib/File/Temp.pm#4 (text) ====
Index: perl/lib/File/Temp.pm
--- perl/lib/File/Temp.pm.~1~	Wed Oct  3 13:30:06 2001
+++ perl/lib/File/Temp.pm	Wed Oct  3 13:30:06 2001
@@ -472,14 +472,14 @@
       if ( $open_success ) {
 
 	# Reset umask
-	umask($umask);
+	umask($umask) if $umask;
 
 	# Opened successfully - return file handle and name
 	return ($fh, $path);
 
       } else {
 	# Reset umask
-	umask($umask);
+	umask($umask) if $umask;
 
 	# Error opening file - abort with error
 	# if the reason was anything but EEXIST
@@ -503,13 +503,13 @@
       if (mkdir( $path, 0700)) {
 	# created okay
 	# Reset umask
-	umask($umask);
+	umask($umask) if $umask;
 
 	return undef, $path;
       } else {
 
 	# Reset umask
-	umask($umask);
+	umask($umask) if $umask;
 
 	# Abort with error if the reason for failure was anything
 	# except EEXIST
End of Patch.