git-debrebase: Provide snags_maybe_bail_early

[dgit.git] / git-debrebase

diff --git a/git-debrebase b/git-debrebase
index 83abc3b2002e55ef16df7d0e602c41f41bda79b7..f1ae053317e7950367de5520fd8521b84cdc56fa 100755 (executable)
--- a/git-debrebase
+++ b/git-debrebase
@@ -276,6 +276,11 @@ sub snags_maybe_bail () {
     }
     $snags_summarised = $snags_forced + $snags_tripped;
 }
+sub snags_maybe_bail_early () {
+    # useful to bail out early without doing a lot of work;
+    # not a substitute for snags_maybe_bail.
+    snags_maybe_bail() if $snags_tripped && !$opt_force;
+}
 sub any_snags () {
     return $snags_forced || $snags_tripped;
 }