Help for this page

Select Code to Download


  1. or download this
    root@geedorah:~# strace perl foo.pl  2>&1 |grep fcntl
fcntl(3, F_SETFD, FD_CLOEXEC)           = 0
...
fcntl(3, F_SETLK, {type=F_WRLCK, whence=SEEK_SET, start=0, len=-858311
+8848}) = -1 EINVAL (Invalid argument)
fcntl(3, F_SETLK, {type=F_UNLCK, whence=SEEK_SET, start=0, len=0}) = 0
root@geedorah:~#
  2. or download this
    root@geedorah:~# strace perl foo.pl  2>&1 |grep fcntl
fcntl(3, F_SETFD, FD_CLOEXEC)           = 0
fcntl(3, F_SETFD, FD_CLOEXEC)           = 0
fcntl(3, F_SETLK, {type=F_WRLCK, whence=SEEK_SET, start=0, len=0}) = 0
fcntl(3, F_SETLK, {type=F_UNLCK, whence=SEEK_SET, start=0, len=0}) = 0