Integrate changes #12241 and #12242 from macperl:
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 27 Sep 2001 11:15:51 +0000 (11:15 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 27 Sep 2001 11:15:51 +0000 (11:15 +0000)
Remove unneeded disabling of umask() calls

Note (get|set)sockopt are available.

p4raw-link: @12241 on //depot/maint-5.6/macperl: 113e0f7d7f04be69474441a252121e8e322dfb7e

p4raw-id: //depot/perl@12245
p4raw-integrated: from //depot/maint-5.6/macperl@12244 'copy in'
lib/File/Temp.pm (@11813..) pod/perlport.pod (@12214..)

lib/File/Temp.pm
pod/perlport.pod

index 3248a96..97b2895 100644 (file)
@@ -452,10 +452,10 @@ sub _gettemp {
       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 @@ sub _gettemp {
       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 @@ sub _gettemp {
     } 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
index e4a50b0..8e94e22 100644 (file)
@@ -1572,7 +1572,7 @@ is used directly as Perl's exit status. (VMS)
 
 =item getsockopt SOCKET,LEVEL,OPTNAME
 
-Not implemented. (S<Mac OS>, Plan9)
+Not implemented. (Plan9)
 
 =item glob EXPR
 
@@ -1690,7 +1690,7 @@ Not implemented. (MPE/iX, Win32)
 
 =item setsockopt SOCKET,LEVEL,OPTNAME,OPTVAL
 
-Not implemented. (S<Mac OS>, Plan9)
+Not implemented. (Plan9)
 
 =item shmctl ID,CMD,ARG