From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Fri, 12 Mar 2010 04:41:02 +0000 (-0500)
Subject: exit 13 if we are forced to quit before the service is even bound to a port.
X-Git-Tag: msva-perl/0.2~6
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=473115090ed0004c7648a03e344b462890942934;p=monkeysphere-validation-agent.git

exit 13 if we are forced to quit before the service is even bound to a port.
---

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(@_);
   }