Reply to thread

Message

[QUOTE="John W. Krahn, post: 4800624"]
It looks like this may be a bug in how perl parses header files.  My
/usr/include/asm/fcntl.h lists these constants:

#define F_DUPFD         0       /* dup */
#define F_GETFD         1       /* get close_on_exec */
#define F_SETFD         2       /* set/clear close_on_exec */
#define F_GETFL         3       /* get file->f_flags */
#define F_SETFL         4       /* set file->f_flags */
#define F_GETLK         5
#define F_SETLK         6
#define F_SETLKW        7

#define F_SETOWN        8       /*  for sockets. */
#define F_GETOWN        9       /*  for sockets. */
#define F_SETSIG        10      /*  for sockets. */
#define F_GETSIG        11      /*  for sockets. */

#define F_GETLK64       12      /*  using 'struct flock64' */
#define F_SETLK64       13
#define F_SETLKW64      14

But perl defines them as:

$ perl -le'use Fcntl; print for F_DUPFD, F_GETFD, F_SETFD, F_GETFL, F_SETFL,
F_GETLK, F_SETLK, F_SETLKW, F_SETOWN, F_GETOWN, F_SETSIG, F_GETSIG, F_GETLK64,
F_SETLK64, F_SETLKW64'
0
1
2
3
4
12
13
14
8
9
F_SETSIG
F_GETSIG
12
13
14

So it looks like F_SETLKW is getting the value of F_SETLKW64.

John
[/QUOTE]

Verification