Change 21013 by [EMAIL PROTECTED] on 2003/09/03 06:15:09
use IO; is deprecated.
Affected files ...
... //depot/perl/ext/threads/t/join.t#16 edit
Differences ...
==== //depot/perl/ext/threads/t/join.t#16 (text) ====
Index: perl/ext/threads/t/join.t
--- perl/ext/threads/t/join.t#15~21011~ Tue Sep 2 22:08:29 2003
+++ perl/ext/threads/t/join.t Tue Sep 2 23:15:09 2003
@@ -141,10 +141,10 @@
}
{
- # 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 "[EMAIL PROTECTED] 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 "[EMAIL PROTECTED] or before broke mp2 ithreads test".
+ use IO::File;
$_->join for map threads->new(sub{ok($_, "stress newCONSTSUB")}), 1..2;
}
End of Patch.
