You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@subversion.apache.org by da...@apache.org on 2013/07/06 17:22:54 UTC
svn commit: r1500295 - /subversion/trunk/tools/dist/backport.pl
Author: danielsh
Date: Sat Jul 6 15:22:54 2013
New Revision: 1500295
URL: http://svn.apache.org/r1500295
Log:
* tools/dist/backport.pl
(prompt): Don't try to automagically add whitespace for the caller.
(handle_entry): Specify the whitespace at the caller, instead.
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=1500295&r1=1500294&r2=1500295&view=diff
==============================================================================
--- subversion/trunk/tools/dist/backport.pl (original)
+++ subversion/trunk/tools/dist/backport.pl Sat Jul 6 15:22:54 2013
@@ -104,7 +104,7 @@ EOF
}
sub prompt {
- print "$_[0] "; shift;
+ print $_[0]; shift;
my %args = @_;
my $getchar = sub {
ReadMode 'cbreak';
@@ -446,12 +446,12 @@ sub handle_entry {
say "";
say "Vetoes found!" if @vetoes;
- given (prompt 'Go ahead? [y,±1,±0,q,e,a,N]',
+ given (prompt 'Go ahead? [y,±1,±0,q,e,a,N] ',
verbose => 1, extra => qr/[+-]/) {
when (/^y/i) {
merge %entry;
while (1) {
- given (prompt "Shall I open a subshell? [ydN]", verbose => 1) {
+ given (prompt "Shall I open a subshell? [ydN] ", verbose => 1) {
when (/^y/i) {
system($ENV{SHELL} // "/bin/sh") == 0
or warn "Creating an interactive subshell failed ($?): $!"