equal
deleted
inserted
replaced
6 |
6 |
7 use strict; |
7 use strict; |
8 use warnings; |
8 use warnings; |
9 use POSIX qw(tmpnam); |
9 use POSIX qw(tmpnam); |
10 use Getopt::Long; |
10 use Getopt::Long; |
11 |
|
12 use blib; |
|
13 use Quancom::Test::Server; |
11 use Quancom::Test::Server; |
14 |
12 |
15 $SIG{INT} = sub { warn "got INT, exit now\n"; exit 0; }; |
13 $SIG{INT} = sub { warn "got INT, exit now\n"; exit 0; }; |
16 |
14 |
17 my $opt_socket = 0; |
15 my $server = new Quancom::Test::Server @ARGV ? $ARGV[0] : tmpnam(); |
18 |
|
19 GetOptions("socket!" => \$opt_socket) |
|
20 or die "wrong option!\n"; |
|
21 |
|
22 my $server = new Quancom::Test::Server $opt_socket ? tmpnam() : (); |
|
23 $server->run; |
16 $server->run; |