2 eval { require Config; import Config };
4 print "1..0 # Skip: no Config\n";
7 if ($Config{extensions} !~ /\bThread\b/) {
8 print "1..0 # Skip: no use5005threads\n";
19 print "ping $count\n";
25 while ($line = <STDIN>) {
26 print "reader: $line";
28 print "End of input in reader\n";
33 This test starts up a thread to read and echo whatever is typed on
34 the keyboard/stdin, line by line, while the main thread counts down
35 to zero. The test stays running until both the main thread has
36 finished counting down and the I/O thread has seen end-of-file on
40 $r = new Thread \&counter;
50 print "ping $count\n";