Permalink
Browse files

Recommit from previous broken one.

  • Loading branch information...
1 parent a642bb9 commit bd362f4b0861940a341ce2d1456ecbe14ecafe88 @rcaputo committed Jan 23, 2000
View
@@ -1,11 +1,12 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# This is a proof of concept for proxies, or other programs that
# employ both client and server sockets in the same sesion. Previous
# 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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;
#==============================================================================
@@ -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
@@ -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
@@ -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
@@ -5,7 +5,7 @@
# be big and strong.
use strict;
-use lib qw(..);
+use lib '..';
use POE;
use IO::Socket;
View
@@ -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
@@ -1,11 +1,12 @@
-#!/usr/bin/perl -w -I..
+#!/usr/bin/perl -w
# $Id$
# A simple socket client that uses a two-handle wheel to pipe between
# a socket and the console. It's hardcoded to talk with wheels.perl's
# rot13 server on localhost port 32000.
use strict;
+use lib '..';
use POSIX;
use POE qw(Wheel::SocketFactory Wheel::ReadWrite Driver::SysRW Filter::Stream);

0 comments on commit bd362f4

Please sign in to comment.