From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 3 Sep 2003 06:15:09 +0000 (+0000)
Subject: use IO; is deprecated.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ec54d15e771f3e1743fa1e0875e55fa2ae8a5e28;p=p5sagit%2Fp5-mst-13.2.git

use IO; is deprecated.

p4raw-id: //depot/perl@21013
---

diff --git a/ext/threads/t/join.t b/ext/threads/t/join.t
index 033b837..cef059f 100644
--- a/ext/threads/t/join.t
+++ b/ext/threads/t/join.t
@@ -141,10 +141,10 @@ if ($^O eq 'linux') {
 }
 
 {
-    # The "use IO" is not actually used for anything; its only purpose is to
-    # incite a lot of calls to newCONSTSUB.  See the p5p archives for
-    # the thread "maint@20974 or before broke mp2 ithreads test".
-    use IO;
+    # The "use IO::File" is not actually used for anything; its only
+    # purpose is to incite a lot of calls to newCONSTSUB.  See the p5p
+    # archives for the thread "maint@20974 or before broke mp2 ithreads test".
+    use IO::File;
     $_->join for map threads->new(sub{ok($_, "stress newCONSTSUB")}), 1..2;
 }