[Pkg-privacy-commits] [msva-perl] 91/356: exit 13 if we are forced to quit before the service is even bound to a port.

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to branch debian
in repository msva-perl.

commit 473115090ed0004c7648a03e344b462890942934
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Thu Mar 11 23:41:02 2010 -0500

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

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-privacy/packages/msva-perl.git