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 96657ca003f2ed70cc325e50cd783a7c9827568f..4e3a404f9046d2c6bedcd2844620659efe795f83 100644 (file)
--- 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(@_);
   }