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 dcbdef96fbb61ec4d4434f7cdfa6fa18023e021c Author: Alex Muntada <[email protected]> Date: Sat May 21 20:35:06 2016 +0200 Refactor detect_tracker_url() into a sub --- scripts/forward | 28 ++++++++++++++++++---------- 1 file changed, 18 insertions(+), 10 deletions(-) diff --git a/scripts/forward b/scripts/forward index b49f7f7..1cdf05e 100755 --- a/scripts/forward +++ b/scripts/forward @@ -158,20 +158,12 @@ die "Unable to determine distribution name.\n" . "Please use the --dist option.\n" unless $opt_dist; +$opt_tracker_url ||= detect_tracker_url(); + if ( $meta and $meta->resources and $meta->resources->{bugtracker} ) { - $opt_tracker_url ||= $meta->resources->{bugtracker}{web}; $opt_mailto ||= $meta->resources->{bugtracker}{mailto}; } -unless ($opt_tracker_url) { - warn "Bug tracker web not found in META.\n"; - - $opt_tracker_url - = "https://rt.cpan.org/Public/Dist/Display.html?Name=$opt_dist";; - - warn "Falling back to $opt_tracker_url\n"; -} - if ( $opt_use_mail and not $opt_mailto ) { warn "Bug tracker mail not found in META.\n"; @@ -728,6 +720,22 @@ sub mark_bug_as_forwarded { print " done.\n"; } +sub detect_tracker_url { + $opt_tracker_url ||= $meta->resources->{bugtracker}{web} + if $meta + and $meta->resources + and $meta->resources->{bugtracker}; + + unless ($opt_tracker_url) { + warn "Bug tracker web not found in META.\n"; + + $opt_tracker_url + = "https://rt.cpan.org/Public/Dist/Display.html?Name=$opt_dist";; + + warn "Falling back to $opt_tracker_url\n"; + } +} + sub detect_tracker { # discover the appropriate tracker -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/pkg-perl-tools.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
