git-debrebase: Provide snags_maybe_bail_early

No callers yet.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

1 files changed, 5 insertions, 0 deletions

diff --git a/git-debrebase b/git-debrebase
index 83abc3b..f1ae053 100755
--- 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;
 }