Browse files

Changed IO::Socket::INET uses to IO::Socket in samples. Cleaned up po…

…ing.perl a little.
  • Loading branch information...
1 parent afb9460 commit 86e412516ce7b5936831364ce20d59ca1b3353ff @rcaputo committed Dec 17, 1999
Showing with 11 additions and 12 deletions.
  1. +1 −1 samples/fakelogin.perl
  2. +3 −3 samples/selects.perl
  3. +5 −6 samples/thrash.perl
  4. +2 −2 samples/wheels.perl
View
2 samples/fakelogin.perl
@@ -7,7 +7,7 @@
# a good exercise for wheel event renaming.
use strict;
-use IO::Socket::INET;
+use IO::Socket;
use POE qw(Wheel::SocketFactory Wheel::ReadWrite Driver::SysRW Filter::Line);
View
6 samples/selects.perl
@@ -14,16 +14,16 @@
# connected to by other clients, such as netcat or telnet.
# This is a pre-wheel sockets test. It's one of the few that uses
-# IO::Socket::INET. All the others (with exception of wheels.perl)
-# have been adapted to use POE::Wheel::SocketFactory.
+# IO::Socket. All the others (with exception of wheels.perl) have
+# been adapted to use POE::Wheel::SocketFactory.
# If some aspects of using sessions are confusing, please see the
# *session*.perl tests. They are commented in more detail.
use strict;
use POE;
-use IO::Socket::INET;
+use IO::Socket;
use POSIX qw(EAGAIN);
# the chargen server's listen port
my $chargen_port = 30019;
View
11 samples/thrash.perl
@@ -175,12 +175,11 @@ sub pool_start {
$heap->{'bench count'} = 0;
# Start five clients. NOTE: This would not work if clients used
- # IO::Socket::INET to connect to the server, because
- # IO::Socket::INET's connect blocks. It would wait for the server
- # to accept a connectino before continuing, which would never happen
- # since this loop is holding up the event queue. The program can
- # only get away with this loop because SocketFactory connections do
- # not block.
+ # IO::Socket to connect to the server, because IO::Socket's connect
+ # blocks. It would wait for the server to accept a connectino
+ # before continuing, which would never happen since this loop is
+ # holding up the event queue. The program can only get away with
+ # this loop because SocketFactory connections do not block.
for (my $i = 0; $i < 5; $i++) {
&client_create(++$heap->{'client serial'});
View
4 samples/wheels.perl
@@ -14,12 +14,12 @@
# Wheels, Drivers and Filters were still new at this point.
# POE::Wheel::SocketFactory had not been conceived at this point, so
-# this program still relies on IO::Socket::INET.
+# this program still relies on IO::Socket.
use strict;
use POE qw(Wheel::ListenAccept Wheel::ReadWrite Driver::SysRW Filter::Line);
-use IO::Socket::INET;
+use IO::Socket;
my $rot13_port = 32000;

0 comments on commit 86e4125

Please sign in to comment.