[perl.git] branch blead, updated. v5.13.2-257-g8e43ec2

[David Golden]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/8e43ec2a83e92726f8f1ba38f6dab4a1d7b231d6?hp=6f56ac39f60976727952f47f417ee5d00a7b359d>

- Log -----------------------------------------------------------------
commit 8e43ec2a83e92726f8f1ba38f6dab4a1d7b231d6
Author: David Golden <dagol...@cpan.org>
Date:   Wed Jul 14 11:02:54 2010 -0400

    Update template for linked perldelta sections in deltatool

M       Porting/git-deltatool

commit 549721043abcedfad93596c79e4d2947a12ce5ef
Author: David Golden <dagol...@cpan.org>
Date:   Wed Jul 14 10:54:22 2010 -0400

    Add help and fix doc typo for git-deltatool

M       Porting/git-deltatool
-----------------------------------------------------------------------

Summary of changes:
 Porting/git-deltatool |   20 ++++++++++++++------
 1 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/Porting/git-deltatool b/Porting/git-deltatool
index ac35441..13af684 100755
--- a/Porting/git-deltatool
+++ b/Porting/git-deltatool
@@ -15,6 +15,7 @@ use Getopt::Long;
 use Git::Wrapper;
 use Term::ReadKey;
 use Term::ANSIColor;
+use Pod::Usage;
 
 BEGIN { struct( git => '$', last_tag => '$', opt => '%' ) }
 
@@ -37,8 +38,11 @@ sub run {
     'type|t:s', # select by status
     'status|s:s', # status to set for 'update'
     'since:s', # origin commit
+    'help|h',  # help
   );
 
+  pod2usage() if $opt{help};
+
   my $git = Git::Wrapper->new(".");
   my $git_id = $opt{since};
   if ( defined $git_id ) {
@@ -396,7 +400,7 @@ sub do_linked_item {
   my $id = $log->short_id;
 
   my $template = $self->note_template( $log,
-    "perldelta: $section [pending]\n\n=item L<LINK-NAME>\n\n$subject 
($id)\n\n$body\n"
+    "perldelta: $section [pending]\n\n=head3 L<LINK>\n\n=over\n\n=item 
*\n\n$subject ($id)\n\n$body\n\n=back\n"
   );
 
   my $note = $self->edit_text($template);
@@ -731,25 +735,25 @@ __END__
 
 =head1 NAME
 
-git-deltatool.pl - Annotate commits for perldelta
+git-deltatool - Annotate commits for perldelta
 
 =head1 SYNOPSIS
 
  # annotate commits back to last 'git describe' tag
 
- $ git-deltatool.pl
+ $ git-deltatool
 
  # review annotations
 
- $ git-deltatool.pl --mode review
+ $ git-deltatool --mode review
 
  # summarize annotations by section to STDOUT
 
- $ git-deltatool.pl --mode render
+ $ git-deltatool --mode render
 
  # mark 'pending' annotations as 'done' (i.e. added to perldelta)
 
- $ git-deltatool.pl --mode update --type pending --status done
+ $ git-deltatool --mode update --type pending --status done
 
 =head1 OPTIONS
 
@@ -778,6 +782,10 @@ it should be one of 'new', 'pending', 'ignored' or 'done'.
 Defines the boundary for searching git commits.  Defaults to the last
 major tag (as would be given by 'git describe').
 
+=item B<--help>
+
+Shows the manual.
+
 =back
 
 =head1 TODO

--
Perl5 Master Repository