diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2019-08-17 21:02:16 +0100 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2019-08-17 21:08:55 +0100 |
commit | 034245c565101c55e654bd1c451b9e97d80aae28 (patch) | |
tree | 7ad23ca24d17529188da4aa92f0f56441b7bc577 /lib | |
parent | 2f4ef59b9b7f1868d54fa51055d4f3a8b80065fc (diff) | |
download | dotfiles-034245c565101c55e654bd1c451b9e97d80aae28.tar.gz |
pause when couldn't check for unpushed tags
Might prompt user to set a git config option
remote.foo.unpushed-tags-ignore or unpushed-tags.ignore.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/perl5/Local/MrRepo/Repo/Git.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/perl5/Local/MrRepo/Repo/Git.pm b/lib/perl5/Local/MrRepo/Repo/Git.pm index 23736a24..6056f4e8 100644 --- a/lib/perl5/Local/MrRepo/Repo/Git.pm +++ b/lib/perl5/Local/MrRepo/Repo/Git.pm @@ -24,6 +24,7 @@ use parent 'Local::MrRepo::Repo'; use Exporter 'import'; use Git::Wrapper; use Local::ScriptStatus; +use Local::Interactive qw(get_ack); use Local::Util::Git qw(unpushed_tags); use Try::Tiny; @@ -122,7 +123,8 @@ sub review { eval { @unpushed_tags = unpushed_tags($self->toplevel) }; if (my $exception = $@) { die $exception unless $exception =~ /failed to list git remote/; - say_spaced_bullet("Warning: could not check for unpushed tags: $@"); + say_bullet("Warning: could not check for unpushed tags: $exception"); + get_ack(); } unless (@unpushed_tags == 0) { say_bold("There are tags not pushed to any remote:"); |