vendor/perl5/5.006.00.01

1 files changed, 0 insertions, 39 deletions

diff --git a/contrib/perl5/ext/Thread/io.t b/contrib/perl5/ext/Thread/io.t
deleted file mode 100644
index 6012008ef5743..0000000000000
--- a/contrib/perl5/ext/Thread/io.t
+++ /dev/null
@@ -1,39 +0,0 @@
-use Thread;
-
-sub counter {
-$count = 10;
-while ($count--) {
-    sleep 1;
-    print "ping $count\n";
-}
-}
-
-sub reader {
-    my $line;
-    while ($line = <STDIN>) {
-	print "reader: $line";
-    }
-    print "End of input in reader\n";
-    return 0;
-}
-
-print <<'EOT';
-This test starts up a thread to read and echo whatever is typed on
-the keyboard/stdin, line by line, while the main thread counts down
-to zero. The test stays running until both the main thread has
-finished counting down and the I/O thread has seen end-of-file on
-the terminal/stdin.
-EOT
-
-$r = new Thread \&counter;
-
-&reader;
-
-__END__
-
-
-$count = 10;
-while ($count--) {
-    sleep 1;
-    print "ping $count\n";
-}