Re: Bug in Perl script

2011-12-09 Thread Mark Martinec
Alexander, > 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); > ope

Bug in Perl script

2011-12-09 Thread Alexander Panyushkin
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|") ||