summaryrefslogtreecommitdiff
path: root/util/vndb-dev-server.pl
diff options
context:
space:
mode:
Diffstat (limited to 'util/vndb-dev-server.pl')
-rwxr-xr-xutil/vndb-dev-server.pl7
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);
}