Recommit from previous broken one.

samples/proxy.perl

@@ -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

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.
 

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

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

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;

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

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;
 
 #==============================================================================

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);
 

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

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);
 

samples/udp.perl

@@ -5,7 +5,7 @@
 # be big and strong.
 
 use strict;
-use lib qw(..);
+use lib '..';
 use POE;
 use IO::Socket;
 

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;

samples/wheels2.perl

@@ -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);