[p5sagit/p5-mst-13.2.git] / io.t

use Thread;

sub reader {
    my $line;
    while ($line = <STDIN>) {
	print "reader: $line";
    }
    print "End of input in reader\n";
    return 0;
}

$r = new Thread \&reader;
$count = 20;
while ($count--) {
    sleep 1;
    print "ping $count\n";
}
Commit	Line	Data
d9bb3666	1	use Thread;
	2
	3	sub reader {
	4	my $line;
	5	while ($line = <STDIN>) {
	6	print "reader: $line";
	7	}
	8	print "End of input in reader\n";
	9	return 0;
	10	}
	11
	12	$r = new Thread \&reader;
	13	$count = 20;
	14	while ($count--) {
	15	sleep 1;
	16	print "ping $count\n";
	17	}
	18
	19