e detach thread - not sure how to do this but it sounds promising.

See the pod for threads, but essentially where you currently do:

my $immortal = threads->create( ...);
[download]

doing

threads->create( ...)->detach;
[download]

is pretty much all there is to it. As the pod says:

$thr->detach()

Makes the thread unjoinable, and causes any eventual return value to be discarded. When the program exits, any detached threads that are still running are silently terminated.

Time for some code and here's what I'm doing. I still get the message. Gotta be some thing silly (I hope)

#!/usr/bin/perl -w

use threads;
$SIG{"INT"}=\&sigInt;

my $thread=threads->create('test')->detach();

while(1) { sleep 100; }

sub test { sleep 100; }

sub sigInt { exit; }

-mark

Due to Perl "safe signals", sleep is an uninteruptable opcode. Try it this way:

#!/usr/bin/perl -w

use threads;
$SIG{"INT"}=\&sigInt;

my $thread=threads->create('test')->detach();

my $n = 100;
1 while --$n and sleep 1;

sub test { my $n = 100; 1 while --$n and sleep 1; }

sub sigInt { exit; }
[download]

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

A quick note: Detaching the thread doesn't cause it to exit cleanly, just silently.

#!/usr/bin/perl

use threads;

DESTROY { print "Destroyed\n" }

sub test {
   my $x = bless({});
   sleep() while 1;
}

$SIG{INT} = sub { exit };
my $thread = threads->create('test')->detach();
print("Press Ctrl-C to exit\n");
sleep();
[download]

If the thread exited cleanly, the above prints Destroyed. It doesn't.