[pkg-perl-tools] 04/04: gen-itp: Mention in ITP if package will be maintained by the Debian Perl Group

[Axel Beckert]

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

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

commit 1ecbd75da3a8e2f87509d3af448b798ac2ecc41f
Author: Axel Beckert <abe at deuxchevaux.org>
Date:   Sat Aug 8 14:30:03 2015 +0200

    gen-itp: Mention in ITP if package will be maintained by the Debian Perl Group
---
 debian/changelog | 3 +++
 scripts/gen-itp  | 8 ++++++++
 2 files changed, 11 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index 671e210..5f65ec7 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -12,6 +12,9 @@ pkg-perl-tools (0.22) UNRELEASED; urgency=medium
       the same.
     + Nicer output formatting.
     + Whitespace cleanup.
+    + Output the sentence "The package will be maintained under the
+      umbrella of the Debian Perl Group." behind the package description
+      if the maintainer is set to the Debian Perl Group.
 
  -- gregor herrmann <gregoa at debian.org>  Mon, 27 Jul 2015 22:55:49 +0200
 
diff --git a/scripts/gen-itp b/scripts/gen-itp
index 569fb66..5cec207 100755
--- a/scripts/gen-itp
+++ b/scripts/gen-itp
@@ -14,6 +14,7 @@ use Dpkg::Control::Info;
 use Dpkg::Control;
 use Config::Model ;
 use Config::Model::Lister ;
+use File::Slurp qw(read_file);
 use Log::Log4perl qw(:easy) ;
  Log::Log4perl->easy_init($WARN);
 
@@ -107,6 +108,13 @@ say '  Description     : ' . $short;
 say '';
 say $long;
 
+my $control_file_contents = read_file('debian/control');
+if ($control_file_contents =~ /^Maintainer:.*pkg-perl-maintainers\@lists\.alioth\.debian\.org/m) {
+    say '';
+    say 'The package will be maintained under the umbrella of the Debian Perl Group.';
+}
+
+
 __END__
 
 =head1 NAME

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