NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.
All the Perl that's Practical to Extract and Report
about I/O disciplines and I should retire to the Tassili-in-Aijer
mountains in Sahara as a camel herder :-)
-- Jarkko Hietaniemi
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
END{} (Score:1)
END {! -f $lock_file || unlink $lock_file || warn "unlink: $!"}
or in other words...
"Let's delete the lock file if it exists when we're ENDing, even if we're doing so because we've detected a previous instance of the program"
Reply to This