Author: danielsh
Date: Thu Feb 2 14:32:00 2012
New Revision: 1239646
URL: http://svn.apache.org/viewvc?rev=1239646&view=rev
Log:
* tools/dist/backport.pl
($YES): New global for 'batch mode'. Use it instead of random getenv() calls.
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=1239646&r1=1239645&r2=1239646&view=diff
==============================================================================
--- subversion/trunk/tools/dist/backport.pl (original)
+++ subversion/trunk/tools/dist/backport.pl Thu Feb 2 14:32:00 2012
@@ -29,6 +29,8 @@ my $SVN = $ENV{SVN} || 'svn'; # passed u
my $VIM = 'vim';
my $STATUS = './STATUS';
my $BRANCHES = '^/subversion/branches';
+
+my $YES = $ENV{YES}; # batch mode: assume 'yes' without asking
my $WET_RUN = qw[false true][1]; # don't commit
my $DEBUG = qw[false true][0]; # 'set -x', etc
my $SVNq = "$SVN -q ";
@@ -189,7 +191,7 @@ sub handle_entry {
my %entry = parse_entry @_;
my @vetoes = grep { /^ -1:/ } @{$entry{votes}};
- if ($ENV{YES}) {
+ if ($YES) {
merge %entry unless @vetoes;
} else {
print "";
@@ -227,7 +229,7 @@ sub main {
given ($lines[0]) {
# Section header
when (/^[A-Z].*:$/i) {
- print "\n\n=== $lines[0]" unless $ENV{YES};
+ print "\n\n=== $lines[0]" unless $YES;
}
# Backport entry?
when (/^ \*/) {
