examples/test-server
changeset 13 d6f681329542
parent 12 ad264ee5d5ba
child 14 7ccc679ac5db
--- 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;