[pkg-perl-tools] 01/01: Fix glitch that asked to review subject twice

[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 5f472dfe026992de8601b28888ba4b20ab2bce95
Author: Alex Muntada <alexm at alexm.org>
Date:   Mon Jan 23 01:27:43 2017 +0100

    Fix glitch that asked to review subject twice
    
    Gbp-Dch: Ignore
---
 lib/Debian/PkgPerl/Message.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/Debian/PkgPerl/Message.pm b/lib/Debian/PkgPerl/Message.pm
index 9482586..60bf3ef 100644
--- a/lib/Debian/PkgPerl/Message.pm
+++ b/lib/Debian/PkgPerl/Message.pm
@@ -54,6 +54,11 @@ sub get_subject {
     my $patch       = $self->{info}{patch};
     my $opt_tracker = $self->{tracker};
 
+    # No need to review subject again
+    return $self->{subject}
+        if defined $self->{subject}
+        and length $self->{subject} > 0;
+
     my $default = $info->{Subject} // '';
     $default = "[PATCH] $default"
         if $patch and $default !~ /\[PATCH\]/ and $opt_tracker ne 'github';
@@ -65,6 +70,7 @@ sub get_subject {
         $subject = $term->readline( 'Subject: ', $default );
     }
 
+    $self->{subject} = $subject;
     return $subject;
 }
 

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