13 lines
508 B
Text
13 lines
508 B
Text
$NetBSD: patch-af,v 1.1 2005/10/20 17:43:29 wiz Exp $
|
|
|
|
--- posix-permissions.adb.orig 2002-10-24 02:03:52.000000000 -0600
|
|
+++ posix-permissions.adb
|
|
@@ -105,7 +105,7 @@ package body POSIX.Permissions is
|
|
procedure Set_Allowed_Process_Permissions
|
|
(Permissions : in Permission_Set;
|
|
Old_Perms : out Permission_Set) is
|
|
- Mask : mode_t :=
|
|
+ Mask : constant mode_t :=
|
|
not (Form_C_Permission (Permissions) and File_Access_Permission_Bits);
|
|
begin
|
|
Cached_Umask := Mask;
|