Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Recommit from previous broken one.

  • Loading branch information...
commit bd362f4b0861940a341ce2d1456ecbe14ecafe88 1 parent a642bb9
@rcaputo authored
View
3  samples/proxy.perl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# This is a proof of concept for proxies, or other programs that
@@ -6,6 +6,7 @@
# incarnations of POE did not easily support proxies.
use strict;
+use lib '..';
use Socket;
use POE qw(Wheel::ListenAccept Wheel::ReadWrite Driver::SysRW Filter::Stream
Wheel::SocketFactory
View
5 samples/ref-type.perl
@@ -1,9 +1,12 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# This program tests the ability of Filter::Reference to use "any"
# package or object for freeze/thaw.
+use strict;
+use lib '..';
+
###############################################################################
# This is the caller.
View
3  samples/refsender.perl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# This program is half of a test suite for POE::Filter::Reference. It
@@ -10,6 +10,7 @@
# Revised for POE 0.06 by Rocco Caputo <troc@netrus.net>
use strict;
+use lib '..';
use Socket;
use POE qw(Wheel::SocketFactory
View
3  samples/refserver.perl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# This program is half of a test suite for POE::Filter::Reference. It
@@ -10,6 +10,7 @@
# Revised for 0.06 by Rocco Caputo <troc@netrus.net>
use strict;
+use lib '..';
use Socket;
use POE qw(Wheel::ListenAccept Wheel::ReadWrite Wheel::SocketFactory
View
3  samples/selects.perl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# This is an early, basic test of POE's filehandle selecting
@@ -21,6 +21,7 @@
# *session*.perl tests. They are commented in more detail.
use strict;
+use lib '..';
use POE;
use IO::Socket;
View
3  samples/sessions.perl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# This is the first test program written for POE. It originally was
@@ -9,6 +9,7 @@
# need to know. :)
use strict;
+use lib '..';
# use POE always includes POE::Kernel and POE::Session, since they are
# the fundamental POE classes and universally used. POE::Kernel
View
3  samples/signals.perl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# This program tests signals. It tests OS signals (such as SIGINT),
@@ -8,6 +8,7 @@
# arbitrarily named signals.
use strict;
+use lib '..';
use POE;
#==============================================================================
View
3  samples/socketfactory.perl
@@ -1,10 +1,11 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# This program tests POE::Wheel::SocketFactory. Basically, it is
# thrash.perl, but for AF_UNIX, AF_INET tcp, and AF_INET udp sockets.
use strict;
+use lib '..';
use POE qw(Wheel::SocketFactory Wheel::ReadWrite Driver::SysRW Filter::Line);
View
3  samples/thrash.perl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# This program creates a server session and an infinitude of clients
@@ -12,6 +12,7 @@
# In the "client" copy, comment out th ecall to &server_create();
use strict;
+use lib '..';
use Socket;
use POE qw(Wheel::ListenAccept Wheel::ReadWrite Driver::SysRW Filter::Line
View
3  samples/tutorial-chat.perl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
=pod //////////////////////////////////////////////////////////////////////////
@@ -25,6 +25,7 @@
=cut \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
use strict;
+use lib '..';
use Socket;
use POE qw(Wheel::SocketFactory Wheel::ReadWrite Driver::SysRW Filter::Line);
View
2  samples/udp.perl
@@ -5,7 +5,7 @@
# be big and strong.
use strict;
-use lib qw(..);
+use lib '..';
use POE;
use IO::Socket;
View
3  samples/wheels.perl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# If wheels make you squeamish, see selects.perl. It is about the
@@ -17,6 +17,7 @@
# this program still relies on IO::Socket.
use strict;
+use lib '..';
use POE qw(Wheel::ListenAccept Wheel::ReadWrite Driver::SysRW Filter::Line);
use IO::Socket;
View
3  samples/wheels2.perl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# A simple socket client that uses a two-handle wheel to pipe between
@@ -6,6 +6,7 @@
# rot13 server on localhost port 32000.
use strict;
+use lib '..';
use POSIX;
use POE qw(Wheel::SocketFactory Wheel::ReadWrite Driver::SysRW Filter::Stream);
Please sign in to comment.
Something went wrong with that request. Please try again.