[Pkg-privacy-commits] [msva-perl] 242/356: allow the use of ports in hostnames

[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 2dc0b9a20468a77ddf4f6041d71a8e17d0f47df1
Author: Daniel Kahn Gillmor <dkg at fifthhorseman.net>
Date:   Sat Dec 18 21:22:00 2010 -0500

    allow the use of ports in hostnames
---
 Changelog                  | 3 ++-
 Crypt/Monkeysphere/MSVA.pm | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Changelog b/Changelog
index e530be6..33a2a69 100644
--- a/Changelog
+++ b/Changelog
@@ -4,8 +4,9 @@ msva-perl (0.8~pre) upstream;
   * avoid indirect object creation.
   * bug fix for unused option messages.
   * allow use of hkpms keyservers from gpg.conf
+  * allow the use of ports in hostnames (closes MS # 2665)
 
- -- Daniel Kahn Gillmor <dkg at fifthhorseman.net>  Sat, 18 Dec 2010 18:27:31 -0500
+ -- Daniel Kahn Gillmor <dkg at fifthhorseman.net>  Sat, 18 Dec 2010 20:51:07 -0500
 
 msva-perl (0.7) upstream;
 
diff --git a/Crypt/Monkeysphere/MSVA.pm b/Crypt/Monkeysphere/MSVA.pm
index afc3a19..1ade1ab 100755
--- a/Crypt/Monkeysphere/MSVA.pm
+++ b/Crypt/Monkeysphere/MSVA.pm
@@ -624,7 +624,7 @@
         $ret->{message} = sprintf("Invalid client peer name string: %s", $data->{peer}->{name});
         return $status, $ret;
       }
-    } elsif ($data->{peer}->{name} =~ /^($RE{net}{domain})$/) {
+    } elsif ($data->{peer}->{name} =~ /^($RE{net}{domain}(:[[:digit:]]+)?)$/) {
       $data->{peer}->{name} = $1;
     } else {
       msvalog('error', "invalid peer name string: %s\n", $data->{peer}->{name});

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