PERFORCE change 12241 for review

[Chris Nandor]

Change 12241 by pudge@pudge-mobile on 2001/09/26 20:28:49

        Remove unneeded disabling of umask() calls

Affected files ...

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

Differences ...

==== //depot/maint-5.6/macperl/lib/File/Temp.pm#3 (text) ====
Index: perl/lib/File/Temp.pm
--- perl/lib/File/Temp.pm.~1~   Wed Sep 26 14:45:05 2001
+++ perl/lib/File/Temp.pm       Wed Sep 26 14:45:05 2001
@@ -452,10 +452,10 @@
       local $^F = 2;
 
       # Store callers umask
-      my $umask = umask() unless ($^O eq 'MacOS');
+      my $umask = umask();
 
       # Set a known umask
-      umask(066) unless ($^O eq 'MacOS');
+      umask(066);
 
       # Attempt to open the file
       my $open_success = undef;
@@ -472,14 +472,14 @@
       if ( $open_success ) {
 
        # Reset umask
-       umask($umask) unless ($^O eq 'MacOS');
+       umask($umask);
 
        # Opened successfully - return file handle and name
        return ($fh, $path);
 
       } else {
        # Reset umask
-       umask($umask) unless ($^O eq 'MacOS');
+       umask($umask);
 
        # Error opening file - abort with error
        # if the reason was anything but EEXIST
@@ -494,22 +494,22 @@
     } elsif ($options{"mkdir"}) {
 
       # Store callers umask
-      my $umask = umask() unless ($^O eq 'MacOS');
+      my $umask = umask();
 
       # Set a known umask
-      umask(066) unless ($^O eq 'MacOS');
+      umask(066);
 
       # Open the temp directory
       if (mkdir( $path, 0700)) {
        # created okay
        # Reset umask
-       umask($umask) unless ($^O eq 'MacOS');
+       umask($umask);
 
        return undef, $path;
       } else {
 
        # Reset umask
-       umask($umask) unless ($^O eq 'MacOS');
+       umask($umask);
 
        # Abort with error if the reason for failure was anything
        # except EEXIST
End of Patch.