From 473115090ed0004c7648a03e344b462890942934 Mon Sep 17 00:00:00 2001 From: Daniel Kahn Gillmor Date: Thu, 11 Mar 2010 23:41:02 -0500 Subject: [PATCH] exit 13 if we are forced to quit before the service is even bound to a port. --- Net/Server/MSVA.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Net/Server/MSVA.pm b/Net/Server/MSVA.pm index 96657ca..4e3a404 100644 --- a/Net/Server/MSVA.pm +++ b/Net/Server/MSVA.pm @@ -23,10 +23,14 @@ my $msva; my $oldsighdlr; - my $exit_status = 0; + # guarantee initial failure -- this will be cleared after we bind + # successfully. + my $exit_status = 13; sub post_bind_hook { my $self = shift; + # if we got here, then the binding was successful. + $exit_status = 0; $msva->post_bind_hook(@_); } -- 2.26.2