[p5sagit/p5-mst-13.2.git] / ext / Thread / die.tx

BEGIN {
    eval { require Config; import Config };
    if ($@) {
	print "1..0 # Skip: no Config\n";
	exit(0);
    }
    if ($Config{extensions} !~ /\bThread\b/) {
	print "1..0 # Skip: no use5005threads\n";
	exit(0);
    }
}

use Thread 'async';

$t = async {
    print "here\n";
    die "success";
    print "shouldn't get here\n";
};

sleep 1;
print "joining...\n";
eval { @r = $t->join; };
if ($@) {
    print "thread died with message: $@";
} else {
    print "thread failed to die successfully\n";
}
Commit	Line	Data
0fcb073c	1	BEGIN {
	2	eval { require Config; import Config };
	3	if ($@) {
	4	print "1..0 # Skip: no Config\n";
	5	exit(0);
	6	}
	7	if ($Config{extensions} !~ /\bThread\b/) {
	8	print "1..0 # Skip: no use5005threads\n";
	9	exit(0);
	10	}
	11	}
	12
3487771d	13	use Thread 'async';
	14
	15	$t = async {
	16	print "here\n";
	17	die "success";
	18	print "shouldn't get here\n";
	19	};
	20
	21	sleep 1;
	22	print "joining...\n";
	23	eval { @r = $t->join; };
	24	if ($@) {
	25	print "thread died with message: $@";
	26	} else {
	27	print "thread failed to die successfully\n";
	28	}