diff options
-rw-r--r-- | Changes | 4 | ||||
-rw-r--r-- | dist.ini | 5 | ||||
-rw-r--r-- | lib/App/annex_review_unused.pm | 1 | ||||
-rw-r--r-- | lib/Git/Annex/BatchCommand.pm | 2 |
4 files changed, 8 insertions, 4 deletions
@@ -2,5 +2,9 @@ Revision history for Git::Annex {{$NEXT}} +0.002 2020-02-24 07:33:02-07:00 America/Phoenix + - Fix logic in an example in Git::Annex::BatchCommand SYNOPSIS. + - annex-review-unused: 'b' should go back one entry not two. + 0.001 2020-02-12 12:33:47-07:00 America/Phoenix - First public release. @@ -4,7 +4,7 @@ license = GPL_3 copyright_holder = Sean Whitton <spwhitton@spwhitton.name> copyright_year = 2019-2020 -version = 0.001 +version = 0.002 [PkgVersion] [PodWeaver] @@ -15,7 +15,8 @@ version = 0.001 [PodSyntaxTests] [@Git] -signed = 1 +signed = 1 +signoff = 1 [@Filter] -bundle = @Basic diff --git a/lib/App/annex_review_unused.pm b/lib/App/annex_review_unused.pm index a1f9476..22e7a56 100644 --- a/lib/App/annex_review_unused.pm +++ b/lib/App/annex_review_unused.pm @@ -150,7 +150,6 @@ sub main { system "xdg-open", $contentlocation; } elsif ($response eq "b" and $i > 0) { $i--; - $i--; pop @to_drop if @to_drop and $to_drop[$#to_drop] eq diff --git a/lib/Git/Annex/BatchCommand.pm b/lib/Git/Annex/BatchCommand.pm index 1629bb1..0351f09 100644 --- a/lib/Git/Annex/BatchCommand.pm +++ b/lib/Git/Annex/BatchCommand.pm @@ -24,7 +24,7 @@ package Git::Annex::BatchCommand; # see git-annex-find(1) -- `git annex find --batch --not --in here` # prints an empty string for each file which is not present - say "foo/bar is not present in this repo" if $batch->say("foo/bar"); + say "foo/bar is not present in this repo" unless $batch->ask("foo/bar"); =head1 DESCRIPTION |