home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
perl560.zip
/
ext
/
Thread
/
die2.t
< prev
next >
Wrap
Text File
|
1999-07-20
|
315b
|
17 lines
use Thread 'async';
$t = async {
sleep 1;
print "here\n";
die "success if preceded by 'thread died...'";
print "shouldn't get here\n";
};
print "joining...\n";
@r = eval { $t->join; };
if ($@) {
print "thread died with message: $@";
} else {
print "thread failed to die successfully\n";
}