From 1fae02bac841da557fe53f783109f44054b796f9 Mon Sep 17 00:00:00 2001
From: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
Date: Sat, 13 Mar 2010 13:00:47 -0500
Subject: [PATCH] get rid of noisy spew when MSVA_PORT is set (resolving MS
 #2003)

---
 msva-perl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/msva-perl b/msva-perl
index 6a9f60e..b7b6706 100755
--- a/msva-perl
+++ b/msva-perl
@@ -99,7 +99,7 @@ use strict;
       $port = $ENV{MSVA_PORT} + 0;
       die sprintf("not a reasonable port %d", $port) if (($port >= 65536) || $port <= 0);
     }
-    # start the server on port 8901
+    # start the server on requested port
     my $self = $class->SUPER::new($port);
     if (! exists $ENV{MSVA_PORT}) {
       # we can't pass port 0 to the constructor because it evaluates
@@ -483,8 +483,8 @@ use strict;
 my $server = MSVA->new();
 $server->run(host=>'localhost',
              log_level=>MSVA::get_log_level(),
-             user => $>,  # explicitly choose regular user and group (avoids spew)
-             group => $),
+             user => POSIX::geteuid(),  # explicitly choose regular user and group (avoids spew)
+             group => POSIX::getegid(),
              msva=>$server);
 __END__
 
-- 
2.26.2