[pkg-perl-tools] 02/04: Retrieve Bug information from global vars

[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 692f41087443e280a512da3871e540e12d627c8a
Author: Alex Muntada <alexm at alexm.org>
Date:   Fri Dec 2 20:12:21 2016 +0100

    Retrieve Bug information from global vars
---
 lib/Debian/PkgPerl/Bug.pm | 9 +++++++++
 scripts/forward           | 6 +++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/lib/Debian/PkgPerl/Bug.pm b/lib/Debian/PkgPerl/Bug.pm
index 1b3889a..6046173 100644
--- a/lib/Debian/PkgPerl/Bug.pm
+++ b/lib/Debian/PkgPerl/Bug.pm
@@ -31,6 +31,13 @@ sub new {
 }
 
 sub retrieve_bug_info {
+    my $self = shift;
+    my %bug_info;
+
+    my $bug              = $self->{bug};
+    my $opt_offline_test = $self->{offline};
+    my $opt_force        = $self->{force};
+
     $bug_info{url} = "https://bugs.debian.org/$bug";
 
     if ($opt_offline_test) {
@@ -74,6 +81,8 @@ sub retrieve_bug_info {
         warn "W: Failed to retrieve content of bug #$bug:\n";
         warn "W: $err";
     }
+
+    return %bug_info;
 }
 
 =head1 LICENSE AND COPYRIGHT
diff --git a/scripts/forward b/scripts/forward
index abeb462..a0fbdb4 100755
--- a/scripts/forward
+++ b/scripts/forward
@@ -245,7 +245,11 @@ if ($patch) {
     }
 }
 
-my $bug_info = Debian::PkgPerl::Bug->new();
+my $bug_info = Debian::PkgPerl::Bug->new(
+    bug     => $bug,
+    offline => $opt_offline_test,
+    force   => $opt_force,
+);
 %bug_info = $bug_info->retrieve_bug_info() if $bug;
 
 sub get_subject {

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