r77957 - /scripts/git-tag-pending-bugs

[dmn at users.alioth.debian.org]

Author: dmn
Date: Thu Jul 28 14:30:32 2011
New Revision: 77957

URL: http://svn.debian.org/wsvn/?sc=1&rev=77957
Log:
mention package name in the message, wrap nicely

Modified:
    scripts/git-tag-pending-bugs

Modified: scripts/git-tag-pending-bugs
URL: http://svn.debian.org/wsvn/scripts/git-tag-pending-bugs?rev=77957&op=diff
==============================================================================
--- scripts/git-tag-pending-bugs (original)
+++ scripts/git-tag-pending-bugs Thu Jul 28 14:30:32 2011
@@ -15,6 +15,7 @@
 use Git;
 use Mail::Send;
 use Sys::Hostname::Long;
+use Text::Wrap qw(wrap);
 
 use constant FROM	=> 'pkg-perl-maintainers at lists.alioth.debian.org';
 
@@ -85,8 +86,18 @@
 else {
     $out = $msg->open();
 }
+$Text::Wrap::columns = 70;
+
 $out->print("tag $_ + pending\n") foreach @bugs;
 $out->print("thanks\n\n");
-$out->print("Some bugs are closed in revision $revision\nby $author\n\n");
+$out->print(
+    wrap(
+        '',
+        '',
+        "Some bugs in the $package package are closed "
+            . "in revision $revision by $author"
+    ),
+    "\n\n"
+);
 $out->print("Commit message:\n\n$log\n");
 $out->close;