subversion-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From danie...@apache.org
Subject svn commit: r1499530 - /subversion/trunk/tools/dist/backport.pl
Date Wed, 03 Jul 2013 19:27:29 GMT
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;
 



Mime
View raw message