[pkg-perl-tools] 03/03: Search for Bug-Database in debian/upstream/metadata

[Alex Muntada]

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

alexm-guest pushed a commit to branch master
in repository pkg-perl-tools.

commit 1287a6ebc4fad234cb463a8c899bbf15dde474d0
Author: Alex Muntada <alexm at alexm.org>
Date:   Sat May 21 20:17:47 2016 +0200

    Search for Bug-Database in debian/upstream/metadata
---
 scripts/forward | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/scripts/forward b/scripts/forward
index 1cdf05e..d5b8e86 100755
--- a/scripts/forward
+++ b/scripts/forward
@@ -92,7 +92,8 @@ B<cpan> is used.
 =item B<-u> I<url>
 
 Tracker URL to submit the information to. Taken from the C<<
-resources->bugtracker->web >> field of F<META>. Defaults to C<<
+resources->bugtracker->web >> field of F<META> or the C<Bug-Database>
+field in F<debian/upstream/metadata>. Defaults to C<<
 https://rt.cpan.org/Public/Dist/Display.html?Name=I<dist-name> >> for B<cpan> and
 is mandatory for B<github>.
 
@@ -726,6 +727,10 @@ sub detect_tracker_url {
         and $meta->resources
         and $meta->resources->{bugtracker};
 
+    $opt_tracker_url ||= $upstream_meta->{'Bug-Database'}
+        if $upstream_metadata
+        and exists $upstream_meta->{'Bug-Database'};
+
     unless ($opt_tracker_url) {
         warn "Bug tracker web not found in META.\n";
 

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