diff options
Diffstat (limited to 'util/vndb-dev-server.pl')
-rwxr-xr-x | util/vndb-dev-server.pl | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/util/vndb-dev-server.pl b/util/vndb-dev-server.pl index d1d051a8..a7571e10 100755 --- a/util/vndb-dev-server.pl +++ b/util/vndb-dev-server.pl @@ -15,8 +15,6 @@ use Cwd 'abs_path'; my $listen_port = $ENV{TUWF_HTTP_SERVER_PORT} || 3000; $ENV{TUWF_HTTP_SERVER_PORT} = $listen_port+1; -my $script = $ARGV[0] && $ARGV[0] eq '3' ? 'vndb3.pl' : 'vndb.pl'; - my($pid, $prog, $killed); sub prog_start { @@ -30,7 +28,7 @@ sub prog_start { } print $d; }; - $prog = run_cmd "$ROOT/util/$script", + $prog = run_cmd "$ROOT/util/vndb.pl", '$$' => \$pid, '>' => $output, '2>' => $output; @@ -104,7 +102,6 @@ sub checkmod { chdir $ROOT; $check->($_) for (qw{ util/vndb.pl - util/vndb3.pl data/conf.pl }); @@ -152,6 +149,6 @@ while(1) { my $prog_conn = AE::cv; tcp_connect '127.0.0.1', $ENV{TUWF_HTTP_SERVER_PORT}, sub { $prog_conn->send(shift); }; - my $prog_fh = $prog_conn->recv || die "Unable to connect to $script? $!"; + my $prog_fh = $prog_conn->recv || die "Unable to connect to vndb.pl? $!"; pipe_fhs($serv_fh, $prog_fh); } |