[Pkg-privacy-commits] [msva-perl] 99/356: get rid of noisy spew when MSVA_PORT is set (resolving MS #2003)

[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 1fae02bac841da557fe53f783109f44054b796f9
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Sat Mar 13 13:00:47 2010 -0500

    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__
 

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