$options ||= {};
+ die "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;
}