[libconfig-model-dpkg-perl] 01/01: Warn (nd fix) if Vcs-Git uses http transport

[dod at debian.org]

This is an automated email from the git hooks/post-receive script.

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit cd8a294ffac034b954bd6f2252c02e81181298e7
Author: Dominique Dumont <dod at debian.org>
Date:   Thu Feb 4 19:50:51 2016 +0100

    Warn (nd fix) if Vcs-Git uses http transport
---
 lib/Config/Model/models/Dpkg/Control/Source.pl | 4 ++--
 t/dependency-check.t                           | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Config/Model/models/Dpkg/Control/Source.pl b/lib/Config/Model/models/Dpkg/Control/Source.pl
index f17bca1..861cf00 100644
--- a/lib/Config/Model/models/Dpkg/Control/Source.pl
+++ b/lib/Config/Model/models/Dpkg/Control/Source.pl
@@ -404,8 +404,8 @@ The information is meant to be useful for a user knowledgeable in the given Vers
         'type' => 'leaf',
         'value_type' => 'uniline',
         'warn_if_match' => {
-          '^git://' => {
-            'fix' => 's/^git:/https:/;',
+          '^(git|http)://' => {
+            'fix' => 's/^(git|http):/https:/;',
             'msg' => 'An unencrypted transport protocol is used for this URI. It is recommended to use a secure transport such as HTTPS for anonymous read-only access.'
           },
           'debian.org/~' => {
diff --git a/t/dependency-check.t b/t/dependency-check.t
index e39a5ac..1a32930 100644
--- a/t/dependency-check.t
+++ b/t/dependency-check.t
@@ -361,7 +361,7 @@ my @vcs_tests = (
     [ 'Vcs-Arch',    'http://foo.debian.org/arch/arch/','http://anonscm.debian.org/arch/', $expected_warn ],
     [ 'Vcs-Bzr',     'http://baz.debian.org/','http://anonscm.debian.org/bzr/', $expected_warn ],
     [ 'Vcs-Cvs',     'svn at cvs.alioth.debian.org:/cvsroot/','svn at anonscm.debian.org:/cvs/', $expected_warn ],
-    [ 'Vcs-Git',     'http://foo.debian.org/git/bar.git','https://anonscm.debian.org/git/bar.git', $expected_warn ],
+    [ 'Vcs-Git',     'http://foo.debian.org/git/bar.git','https://anonscm.debian.org/git/bar.git', qr/unencrypted/, $expected_warn ],
     [ 'Vcs-Git',     'git://foo.debian.org/git/bar.git','https://anonscm.debian.org/git/bar.git', qr/unencrypted/, $expected_warn ],
     [ 'Vcs-Hg',      'http://foo.debian.org/hg/foo','http://anonscm.debian.org/hg/foo', $expected_warn ],
     [ 'Vcs-Svn',     'svn://foo.debian.org/svn/foo','svn://anonscm.debian.org/foo', $expected_warn ],

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git