Perl Flock and Aix 5.3?

[bdw238]

On attempting to use the flock function in my perl script on Aix 5.3 server, and it does not lock correctly. What I am doing wrong?

sysopen($lockhandle,"/var/locks/test.lock",O_RDWR | O_CREAT,0664) || die ("Can Not open $LOCKFILE: $!\n");
unless (flock($lockhandle,LOCK_EX |LOCKNB)) {
exit 1;
}

Note this code works on Suse Linux


Brian

 

[BrianAtWork]

I'm on AIX 5.3 and it worked for me.

What part is not working? Is it dying on "Cannot open..." or is it exiting with a 1 inside your unless statement?

 

[bdw238]

It is not locking the file. What should happen is process 1 of test.pl should continue normally and then any other attempt run of test.pl whilst the first test.ls process should exit value 1 as it has not obtained a write lock on /var/locks/test.lock.


Regards



Brian