force binding to loopback so that our peer identification is legitimate

diff --git a/msva b/msva
index 67bb93147ba45ed39b91fbd265b9373776cd0cfd..ff75909ced0792a2146ab7e146aa6fc8e8d7d3af 100755 (executable)
--- a/msva
+++ b/msva
@@ -82,6 +82,7 @@ use strict;
     my $class = shift;
     # start the server on port 8901
     my $self = $class->SUPER::new(8901);
+    $self->host('localhost');
 
     $self->{allowed_uids} = {};
     if (exists $ENV{MSVA_ALLOWED_USERS}) {