charnames pragma extended with :alias for customized

[p5sagit/p5-mst-13.2.git] / lib / File / Temp.pm

diff --git a/lib/File/Temp.pm b/lib/File/Temp.pm
index 0df1af4..6f351df 100644 (file)
--- 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