|
List Info
Thread: IPC::SysV fixes
|
|
| IPC::SysV fixes |
|
2007-10-08 02:19:15 |
|
On my journey through SysV land I found two almost 10 year old bugs
that seem worth fixing before 5.10 (and are low-risk enough to do so).
Patch also attached.
diff -ruN perl-current-orig/ext/IPC/SysV/SysV.xs perl-current/ext/IPC/SysV/SysV.xs
--- perl-current-orig/ext/IPC/SysV/SysV.xs 2007-08-12 16:13:22.000000000 +0200
+++ perl-current/ext/IPC/SysV/SysV.xs 2007-10-08 09:07:15.000000000 +0200
 -44,9 +44,9
#ifndef S_IRWXU
# ifdef S_IRUSR
-# define S_IRWXU (S_IRUSR|S_IWUSR|S_IWUSR)
-# define S_IRWXG (S_IRGRP|S_IWGRP|S_IWGRP)
-# define S_IRWXO (S_IROTH|S_IWOTH|S_IWOTH)
+# define S_IRWXU (S_IRUSR|S_IWUSR|S_IXUSR)
+# define S_IRWXG (S_IRGRP|S_IWGRP|S_IXGRP)
+# define S_IRWXO (S_IROTH|S_IWOTH|S_IXOTH)
# else
# define S_IRWXU 0700
# define S_IRWXG 0070
-248,7 +248,7
{"IPC_EXCL", IPC_EXCL},
#endif
#ifdef IPC_GETACL
- {"IPC_GETACL", IPC_EXCL},
+ {"IPC_GETACL", IPC_GETACL},
#endif
#ifdef IPC_LOCKED
{"IPC_LOCKED", IPC_LOCKED},
Marcus
--
mixed emotions:
Watching a bus-load of lawyers plunge off a cliff.
With five empty seats.
|
 Approximate file size 909 bytes |
[1]
|
|
|
about | contact Other archives ( Real Estate discussion Medical topics )
|