Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

tweak default ports and add die() for MSWin32 on console example

  • Loading branch information...
commit e62b7b2f92f2c8ddf5ce0a8cd2b9fc1942944b39 1 parent a4b7ffe
Larwan Berke authored
View
2  examples/selects.perl
@@ -27,7 +27,7 @@
use IO::Socket;
use POSIX qw(EAGAIN);
# the chargen server's listen port
-my $chargen_port = 30019;
+my $chargen_port = 32100;
#==============================================================================
# This is the session that will handle a client connection to the
View
2  examples/tcp_watermarks.perl
@@ -10,7 +10,7 @@
use lib '../lib';
use POE qw(Component::Server::TCP Wheel::ReadWrite Driver::SysRW Filter::Line);
-my $chargen_port = 32019;
+my $chargen_port = 32100;
#==============================================================================
# This is a simple chargen service.
View
2  examples/thrash.perl
@@ -25,7 +25,7 @@
sub DEBUG () { 0 }
# address and port the server binds to
my $server_addr = '127.0.0.1';
-my $server_port = 31415;
+my $server_port = 32100;
###############################################################################
# This is a single client session. It uses two separator wheels: a
View
2  examples/watermarks.perl
@@ -9,7 +9,7 @@
use lib '../lib';
use POE qw(Wheel::SocketFactory Wheel::ReadWrite Driver::SysRW Filter::Line);
-my $chargen_port = 32019;
+my $chargen_port = 32100;
#==============================================================================
# This is a simple TCP server. It answers connections and passes them
View
4 examples/wheels2.perl
@@ -9,6 +9,10 @@
use lib '../lib';
use POSIX;
+BEGIN {
+ die "This example uses the console, but $^O doesn't support select() on console handles, sorry." if $^O eq "MSWin32";
+}
+
use POE qw(Wheel::SocketFactory Wheel::ReadWrite Driver::SysRW Filter::Stream);
my $rot13_port = 32100;

0 comments on commit e62b7b2

Please sign in to comment.
Something went wrong with that request. Please try again.