Bug in Perl script

Alexander Panyushkin vsityz at gmail.com
Fri Dec 9 10:11:54 UTC 2011

I have a script that runs command tail with open descriptor.
After 30 seconds, I close descriptor.  But descriptor not closed.
When script is closed tail is present in ps aux.

$log_file = path_to_log;
eval {
    local $SIG{ALRM} = sub { die; };
    alarm (30);
    open (LOG, "tail -F $log_file|") || die "Сan`t open logfile 
    while (<LOG>) {
    alarm (0);
close (LOG);
print ("Ok\n");

This code is good working in FreeBSD 8.2, but in FreeBSD 9.0 not working.

Best Regards

More information about the freebsd-current mailing list