--- a/examples/test-server Sun Jan 04 18:42:46 2009 +0100
+++ b/examples/test-server Sun Jan 04 23:44:45 2009 +0100
@@ -8,16 +8,9 @@
use warnings;
use POSIX qw(tmpnam);
use Getopt::Long;
-
-use blib;
use Quancom::Test::Server;
$SIG{INT} = sub { warn "got INT, exit now\n"; exit 0; };
-my $opt_socket = 0;
-
-GetOptions("socket!" => \$opt_socket)
- or die "wrong option!\n";
-
-my $server = new Quancom::Test::Server $opt_socket ? tmpnam() : ();
+my $server = new Quancom::Test::Server @ARGV ? $ARGV[0] : tmpnam();
$server->run;