Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

…ing.perl a little.
  • Loading branch information...
commit 86e412516ce7b5936831364ce20d59ca1b3353ff 1 parent afb9460
@rcaputo authored
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,8 +14,8 @@
# 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.
@@ -23,7 +23,7 @@
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.
Something went wrong with that request. Please try again.