Added the --require-quit (-Q) option (used by my release-rsync

script).

diff --git a/verify-patches b/verify-patches
index 8c97ecc..a4cf8c8 100755 (executable)
--- a/verify-patches
+++ b/verify-patches
@@ -5,7 +5,7 @@ use Getopt::Long;
 
 my @generated_files = qw( proto.h configure config.h.in rsync.1 rsyncd.conf.5 );
 
-my($no_cvs, $failures_only, $minor_updates, $prepare_source);
+my($no_cvs, $failures_only, $minor_updates, $prepare_source, $require_quit);
 
 &Getopt::Long::Configure('bundling');
 GetOptions(
@@ -13,6 +13,7 @@ GetOptions(
     'failures-only|f' => \$failures_only,
     'minor-updates|u' => \$minor_updates,
     'prepare-source|p' => \$prepare_source,
+    'require-quit|Q' => \$require_quit,
 ) or &usage;
 
 my $interesting_fuzz = $minor_updates ? '\d' : '[2-9]';
@@ -166,6 +167,12 @@ foreach my $diff (@ARGV) {
     &restore_cvsdir;
 }
 
+while ($require_quit) {
+    print "\nType 'Q' to quit: ";
+    $_ = <STDIN>;
+    exit if /^q/i;
+}
+
 exit;
 
 
@@ -274,6 +281,7 @@ sub usage
     die <<EOT;
 Usage: $0 [OPTS] [DIFF-FILE...]
  -f, --failures-only   Suggest skipping patches that don't have failing hunks
+ -Q, --require-quit    Don't auto-exit at the end of the list
  -n, --no-cvs          Don't update tmp/cvsdir at the start of the run
  -p, --prepare-source  Run ./prepare-source and include generated files in diff
  -u, --minor-updates   Suggest 'U' for even minor changes in the diff