svn commit: r1567577 - /subversion/trunk/tools/dist/backport.pl

[da...@apache.org]

Author: danielsh
Date: Wed Feb 12 09:28:47 2014
New Revision: 1567577

URL: http://svn.apache.org/r1567577
Log:
backport.pl interactive mode: Grow a "show full entry" feature.                 
                                                                                
The default prompt includes only the revision numbers, logsummary, and votes.   
The full entry display will show Justification and Notes as well.  I expect
this will be useful to get more context on an entry prior to diffing, merging,
or voting on it.  (A "run 'svn log' on this entry" mode already exists.)

* tools/dist/backport.pl
  (handle_entry): Add 'v' mode for 'View entry' (or 'Verbose listing').
  (backport_usage): Document new feature.

Modified:
    subversion/trunk/tools/dist/backport.pl

Modified: subversion/trunk/tools/dist/backport.pl
URL: http://svn.apache.org/viewvc/subversion/trunk/tools/dist/backport.pl?rev=1567577&r1=1567576&r2=1567577&view=diff
==============================================================================
--- subversion/trunk/tools/dist/backport.pl (original)
+++ subversion/trunk/tools/dist/backport.pl Wed Feb 12 09:28:47 2014
@@ -118,6 +118,7 @@ At a prompt, you have the following opti
 y:   Run a merge.  It will not be committed.
      WARNING: This will run 'update' and 'revert -R ./'.
 l:   Show logs for the entries being nominated.
+v:   Show the full entry (the prompt only shows an abridged version).
 q:   Quit the "for each nomination" loop.
 ±1:  Enter a +1 or -1 vote
      You will be prompted to commit your vote at the end.
@@ -731,7 +732,7 @@ sub handle_entry {
     # See above for why the while(1).
     QUESTION: while (1) {
     my $key = $entry{digest};
-    given (prompt 'Run a merge? [y,l,±1,±0,q,e,a, ,N] ',
+    given (prompt 'Run a merge? [y,l,v,±1,±0,q,e,a, ,N] ',
                    verbose => 1, extra => qr/[+-]/) {
       when (/^y/i) {
         merge %entry;
@@ -772,6 +773,12 @@ sub handle_entry {
         }
         next PROMPT;
       }
+      when (/^v/i) {
+        say "";
+        say for @{$entry{entry}};
+        say "";
+        next QUESTION;
+      }
       when (/^q/i) {
         exit_stage_left $state, $approved, $votes;
       }