Author: danielsh
Date: Wed Jul 3 19:27:29 2013
New Revision: 1499530
URL: http://svn.apache.org/r1499530
Log:
* tools/dist/backport.pl: Reorder function definitions. No functional change.
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=1499530&r1=1499529&r2=1499530&view=diff
==============================================================================
--- subversion/trunk/tools/dist/backport.pl (original)
+++ subversion/trunk/tools/dist/backport.pl Wed Jul 3 19:27:29 2013
@@ -240,6 +240,16 @@ sub parse_entry {
);
}
+sub maybe_revert {
+ # This is both a SIGINT handler, and the tail end of main() in normal runs.
+ return if $YES or not prompt 'Revert? ';
+ copy $STATUS, "$STATUS.$$";
+ system $SVN, qw/revert -q/, $STATUS;
+ system $SVN, qw/revert -R ./;
+ move "$STATUS.$$", $STATUS;
+ exit if @_;
+}
+
sub handle_entry {
my $in_approved = shift;
my %entry = parse_entry @_;
@@ -286,16 +296,6 @@ sub handle_entry {
1;
}
-sub maybe_revert {
- # This is both a SIGINT handler, and the tail end of main() in normal runs.
- return if $YES or not prompt 'Revert? ';
- copy $STATUS, "$STATUS.$$";
- system $SVN, qw/revert -q/, $STATUS;
- system $SVN, qw/revert -R ./;
- move "$STATUS.$$", $STATUS;
- exit if @_;
-}
-
sub main {
usage, exit 0 if @ARGV;
