Re^8: Exiting a script with an 'infinitely looping' thread

[markseger]

re upgrade - no can do! I don't know if you ever heard of the performance monitoring tool collectl before - see http://collectl.sourceforge.net/. I'm working on some enhancements and I really need to support older versions of perl, especially since there are LOTS of users out there and I can't demand they upgrade their perl version. The thread code, which is pretty simplistic since I'm not doing anything really fancy with it, seems to be working very well except for that pesky warning.

If detach doesn't work with older perls does that mean I have to resort to using a shared variable to tell the thread to exit? I'd really like to avoid doing that if possible.

One other thought is that one typically runs collectl as a daemon with all the terminal I/O redirected to /dev/null so if this is really only a warning and the thread does get cleaned up, perhaps simply documenting that the message only occurs with older perl versions and can be safely ignored might be the ultimate solution.

But wait, I just tried running the same code on a stock RHEL 5.1 system which is running perl 5.8.8 and it also produced the message, so either I need a newer perl version for the message to go away OR there is a bug in the sample that was posted.

-mark

[ikegami]

If detach doesn't work with older perls does that mean I have to resort to using a shared variable to tell the thread to exit? I'd really like to avoid doing that if possible.

You apparently have no problem with killing the threads ungracefully (->detach()). If you have no problems killing the main thread ungracefully either, just use POSIX::_exit instead of exit.

#!/usr/bin/perl

use threads;
use POSIX qw( _exit );

sub worker { sleep() while 1; }

$SIG{INT} = sub { _exit(0) };
my $thread = threads->create('worker')->detach();
print("Press Ctrl-C to exit\n");
sleep() while 1;

[BrowserUk]

... and I really need to support older versions of perl, especially since there are LOTS of users out there and I can't demand they upgrade their perl version.

Then document the error message saying that it is:

1. Benign.
2. Can be eliminated by upgrading their installs of threads & threads::shared.

I really cannot emphasise enough how many fewer problems you will get if you use the latest of those two modules.