This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
improve =item template for git-deltatool
authorDavid Golden <dagolden@cpan.org>
Mon, 28 Jun 2010 02:00:19 +0000 (22:00 -0400)
committerDavid Golden <dagolden@cpan.org>
Mon, 28 Jun 2010 02:00:19 +0000 (22:00 -0400)
Porting/git-deltatool

index db4696a..a40ef83 100755 (executable)
@@ -384,8 +384,9 @@ sub do_item {
   my $body = $log->body;
   my $id = $log->short_id;
 
-  my $template =
-    "perldelta: $section [pending]\n\n=item *\n\n $subject ($id)\n\n$body\n";
+  my $template = $self->note_template( $log,
+    "perldelta: $section [pending]\n\n=item *\n\n$subject ($id)\n\n$body\n"
+  );
 
   my $note = $self->edit_text($template);
   if ( ($note ne $template) or $self->y_n("Note unchanged. Commit it?") ) {