$options ||= {};
+ die qq/Sorry, but "restart" doesn't work together with "fork".\n/
+ if $options->{fork};
+
# Setup restarter
my $restarter;
my $parent = $$;
PeerAddr => $host,
PeerPort => $port
)
- or die "can't create client socket (is server running?): ",
+ or die "Can't create client socket (is server running?): ",
$!;
# build the Kill request
$req->protocol('HTTP/1.0');
$client->send( $req->as_string )
- or die "can't send restart instruction: ", $!;
+ or die "Can't send restart instruction: ", $!;
$client->close();
exit;
}