From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Fri, 12 Mar 2010 05:10:23 +0000 (-0500)
Subject: clean cruft out of MSVA.pm
X-Git-Tag: msva-perl/0.2~4
X-Git-Url: http://git.tremily.us/gitweb.cgi?a=commitdiff_plain;h=669445491e58bfc9817600a275ce573d494049f8;p=monkeysphere-validation-agent.git

clean cruft out of MSVA.pm
---

diff --git a/Net/Server/MSVA.pm b/Net/Server/MSVA.pm
index 719487d..805700b 100644
--- a/Net/Server/MSVA.pm
+++ b/Net/Server/MSVA.pm
@@ -19,10 +19,8 @@
 { package Net::Server::MSVA;
   use strict;
   use base qw(Net::Server::Fork);
-  use Net::Server::SIG qw(register_sig);
 
   my $msva;
-  my $oldsighdlr;
   # guarantee initial failure -- this will be cleared after we bind
   # successfully.
   my $exit_status = 13;
@@ -42,7 +40,6 @@
   # FIXME: this is an override of an undocumented interface of
   # Net::Server.  it would be better to use a documented hook, if
   # https://rt.cpan.org/Public/Bug/Display.html?id=55485 was resolved
-
   sub delete_child {
     my $self = shift;
     my $pid = shift;
@@ -59,16 +56,9 @@
   sub run {
     my $self = shift;
     my $options = { @_ };
-
-#  check_for_dequeue=>10, max_dequeue=>1
-
     if (exists $options->{msva}) {
       $msva = $options->{msva};
     };
-#    $oldsighdlr = $NET::Server::SIG::_SIG_SUB{CHLD};
-#    register_sig(USR2 => \&child_dies,
-#                 CHLD => \&child_dies);
-
     $self->SUPER::run(@_);
   }