sub _startMonitorThread { $self = shift; $self->{LogQ} = Thread::Queue->new; my $id = "LogMonitor"; my $thrd = new threads \&_LogMonitor, $id; if ( !$thrd ) { $self->{errormsg} = "$thisFunc:Cannot start $id thread"; $self->TestLogError(); return -1; } $self->{thrds}->{logmon} = $thrd; $self->{logqueue} = 1; return 0; }