subversion-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From danie...@apache.org
Subject svn commit: r1500711 - /subversion/trunk/tools/dist/backport.pl
Date Mon, 08 Jul 2013 13:21:27 GMT
Author: danielsh
Date: Mon Jul  8 13:21:27 2013
New Revision: 1500711

URL: http://svn.apache.org/r1500711
Log:
backport.pl: Show diffs in the pager.

* tools/dist/backport.pl
  ($PAGER): New global.
  (handle_entry): Use $PAGER for diffs.

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=1500711&r1=1500710&r2=1500711&view=diff
==============================================================================
--- subversion/trunk/tools/dist/backport.pl (original)
+++ subversion/trunk/tools/dist/backport.pl Mon Jul  8 13:21:27 2013
@@ -47,6 +47,7 @@ my ($AVAILID) = $ENV{AVAILID} // do {
 }
 // warn "Username for commits (of votes/merges) not found";
 my $EDITOR = $ENV{SVN_EDITOR} // $ENV{VISUAL} // $ENV{EDITOR} // 'ed';
+my $PAGER = $ENV{PAGER} // 'less -F' // 'cat';
 my $VERBOSE = 0;
 $DEBUG = 'true' if exists $ENV{DEBUG};
 $MAY_COMMIT = 'true' if ($ENV{MAY_COMMIT} // "false") =~ /^(1|yes|true)$/i;
@@ -507,7 +508,7 @@ sub handle_entry {
                 or warn "Creating an interactive subshell failed ($?): $!"
             }
             when (/^d/) {
-              system($SVN, 'diff') == 0
+              system("$SVN diff | $PAGER") == 0
                 or warn "diff failed ($?): $!";
               next;
             }



Mime
View raw message