[libconfig-model-dpkg-perl] 01/03: Strip appended '; a=summary' if the cgit webinterface is used

[Salvatore Bonaccorso]

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

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

commit b3abb580057713372a626208c83e9bc3c394c56e
Author: Salvatore Bonaccorso <carnil at debian.org>
Date:   Sun Aug 10 22:01:58 2014 +0200

    Strip appended ';a=summary' if the cgit webinterface is used
    
    Thanks: Gregor Herrmann for the patch
---
 lib/Config/Model/models/Dpkg/Control/Source.pl | 1 +
 t/dependency-check.t                           | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Config/Model/models/Dpkg/Control/Source.pl b/lib/Config/Model/models/Dpkg/Control/Source.pl
index 78faca3..5bb4f49 100644
--- a/lib/Config/Model/models/Dpkg/Control/Source.pl
+++ b/lib/Config/Model/models/Dpkg/Control/Source.pl
@@ -227,6 +227,7 @@ The information is meant to be useful for the final user, willing to browse the
             'fix' => 's{https?://svn\\.debian\\.org/\\w+svn/}{http://anonscm.debian.org/viewvc/};
 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'
           }
diff --git a/t/dependency-check.t b/t/dependency-check.t
index 281cce5..ce23312 100644
--- a/t/dependency-check.t
+++ b/t/dependency-check.t
@@ -331,7 +331,7 @@ print scalar $inst->list_changes,"\n" if $trace ;
 is($inst->c_count, 1,"check that fixes are tracked with notify changes") ;
 
 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;a=summary'],
+    [ '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'],
     [ 'Vcs-Browser', 'https://svn.debian.org/yadasvn/','http://anonscm.debian.org/viewvc/'],
     [ 'Vcs-Browser', 'http://bzr.debian.org/loggerhead/','http://anonscm.debian.org/loggerhead/'],
     [ 'Vcs-Arch',    'http://foo.debian.org/arch/arch/','http://anonscm.debian.org/arch/'],

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