[libconfig-model-dpkg-perl] 01/01: improve warning message for VCS URL (Closes: #842371)

[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 3453a29f1af19c0c3e62b612fae173566c5b9f6a
Author: Dominique Dumont <dod at debian.org>
Date:   Tue Nov 1 17:43:37 2016 +0100

    improve warning message for VCS URL (Closes: #842371)
    
    Tx gregoa for the suggestion
---
 lib/Config/Model/models/Dpkg/Control/Source.pl | 14 +++++++-------
 t/dependency-check.t                           |  2 +-
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/lib/Config/Model/models/Dpkg/Control/Source.pl b/lib/Config/Model/models/Dpkg/Control/Source.pl
index 84532a4..169e440 100644
--- a/lib/Config/Model/models/Dpkg/Control/Source.pl
+++ b/lib/Config/Model/models/Dpkg/Control/Source.pl
@@ -333,7 +333,7 @@ s{http://git.debian.org/\\?p=}{https://anonscm.debian.org/cgit/};
 s{http://anonscm.debian.org/gitweb/\\?p=}{https://anonscm.debian.org/cgit/};
 s{(https://anonscm.debian.org/cgit/.+);a=summary}{$1};
 s{http://bzr.debian.org/loggerhead/}{http://anonscm.debian.org/loggerhead/};',
-            'msg' => 'URL to debian system is not the recommended one'
+            'msg' => 'URL is not the canonical one for repositories hosted on Alioth.'
           }
         }
       },
@@ -349,7 +349,7 @@ The information is meant to be useful for a user knowledgeable in the given Vers
           'debian-uri' => {
             'code' => '!defined $_ or ! /debian.org/ or m{^http://anonscm.debian.org/arch} ;',
             'fix' => 's!http://[\\w\\.-]+/(arch/)*!http://anonscm.debian.org/arch/!;',
-            'msg' => 'URL to debian system is not the recommended one'
+            'msg' => 'URL is not the canonical one for repositories hosted on Alioth.'
           }
         }
       },
@@ -366,7 +366,7 @@ The information is meant to be useful for a user knowledgeable in the given Vers
             'code' => '!defined $_ or ! /debian.org/ or m{^http://anonscm.debian.org/bzr/} ;',
             'fix' => 's{http://\\w+.debian.org/(bzr/)*}{http://anonscm.debian.org/bzr/};
 ',
-            'msg' => 'URL to debian system is not the recommended one'
+            'msg' => 'URL is not the canonical one for repositories hosted on Alioth.'
           }
         }
       },
@@ -383,7 +383,7 @@ The information is meant to be useful for a user knowledgeable in the given Vers
             'code' => '!defined $_ or ! /debian.org/ or m{\\@anonscm.debian.org:/cvs/} ;',
             'fix' => 's{\\@(?:cvs.alioth|anonscm)\\.debian\\.org:/cvsroot/}
                       {\\@anonscm.debian.org:/cvs/}',
-            'msg' => 'URL to debian system is not the recommended one'
+            'msg' => 'URL is not the canonical one for repositories hosted on Alioth.'
           }
         }
       },
@@ -429,7 +429,7 @@ The information is meant to be useful for a user knowledgeable in the given Vers
             'code' => '!defined $_ or ! /debian.org/ or m{^https://anonscm.debian.org/git/(?!git/)};',
             'fix' => 's!http://[\\w\\.-]+/(git/)*!https://anonscm.debian.org/git/!;
 s!git://[\\w\\.-]+/(git/)?!https://anonscm.debian.org/git/!;',
-            'msg' => 'URL to debian system is not the recommended one'
+            'msg' => 'URL is not the canonical one for repositories hosted on Alioth.'
           }
         }
       },
@@ -445,7 +445,7 @@ The information is meant to be useful for a user knowledgeable in the given Vers
           'debian-uri' => {
             'code' => '!defined $_ or ! /debian.org/ or m{^http://anonscm.debian.org/hg/};',
             'fix' => 's{http://\\w+.debian.org/(hg/)*}{http://anonscm.debian.org/hg/};',
-            'msg' => 'URL to debian system is not the recommended one'
+            'msg' => 'URL is not the canonical one for repositories hosted on Alioth.'
           }
         }
       },
@@ -470,7 +470,7 @@ The information is meant to be useful for a user knowledgeable in the given Vers
           'debian-uri' => {
             'code' => '!defined $_ or ! /debian.org/ or m{^svn://anonscm.debian.org/} ;',
             'fix' => 's{svn://\\w+.debian.org/(svn/)*}{svn://anonscm.debian.org/};',
-            'msg' => 'URL to debian system is not the recommended one'
+            'msg' => 'URL is not the canonical one for repositories hosted on Alioth.'
           }
         }
       },
diff --git a/t/dependency-check.t b/t/dependency-check.t
index 9e7ffbc..510ebb3 100644
--- a/t/dependency-check.t
+++ b/t/dependency-check.t
@@ -380,7 +380,7 @@ is($perl_bdi->fetch,"libmodule-build-perl","check fixed B-D-I dependency value")
 print scalar $inst->list_changes,"\n" if $trace ;
 is($inst->c_count, 1,"check that fixes are tracked with notify changes") ;
 
-my $expected_warn = qr/RL to debian system/;
+my $expected_warn = qr/URL is not the canonical one for repositories hosted on Alioth/;
 my @vcs_tests = (
     [ 'Vcs-Browser', 'http://git.debian.org/?p=debian-med/r-cran-stringr.git;a=summary',
       'https://anonscm.debian.org/cgit/debian-med/r-cran-stringr.git', $expected_warn ],

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