Re: Lock Files - File is permanently locked

[Robert Landrum]

Justin Luster wrote:
Seems like an awful lot of code...
open(DATAFILE,">$strDataFileName") or die;
flock(DATAFILE,LOCK_EX);
seek(DATAFILE,0,0);
eval {
   authlib::RestartQNameWrite(\*DATAFILE,$strRestartQName);
};
flock(DATAFILE,LOCK_UN);
close(DATAFILE);
if($@) {
   die $@;
}

*sighs*

I need to proofread my code samples more.  Ignore this cause it 
completely wrong.  The code I cited was "append" code, rather than 
"rewrite" code.  Oh well.

Rob