[Pkg-privacy-commits] [msva-perl] 162/356: simple env variable cleanup (treating empty environment variables as unset)

[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 f47f8ad67c6a9567d964d44981dcfbba7803901c
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Tue Oct 12 03:44:43 2010 -0400

    simple env variable cleanup (treating empty environment variables as unset)
---
 Crypt/Monkeysphere/MSVA.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Crypt/Monkeysphere/MSVA.pm b/Crypt/Monkeysphere/MSVA.pm
index 8ae6b9b..72c7167 100755
--- a/Crypt/Monkeysphere/MSVA.pm
+++ b/Crypt/Monkeysphere/MSVA.pm
@@ -115,7 +115,8 @@
     my $class = shift;
 
     my $port = 0;
-    if (exists $ENV{MSVA_PORT}) {
+    if (exists $ENV{MSVA_PORT} and $ENV{MSVA_PORT} ne '') {
+      msvalog('debug', "MSVA_PORT set to %s\n", $ENV{MSVA_PORT});
       $port = $ENV{MSVA_PORT} + 0;
       die sprintf("not a reasonable port %d", $port) if (($port >= 65536) || $port <= 0);
     }

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