You've got a nasty little race condition in your log handling. Someone can squeeze in and modify the log file between the time you've opened the file for append and the time you've thrown a lock on the file. The simple cure for this is to toss in a seek $fh, 0, 2; after the call to flock().
In reply to Re: open FH, "|foo" under modperl2
by Anonymous Monk
in thread open FH, "|foo" under modperl2
by tofu
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |