diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-02-23 21:11:05 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-02-23 21:11:05 -0700 |
| commit | 26d835aa1d03050e2082cd83f76aaeb09cd3fbab (patch) | |
| tree | 0a2840b3c99a3dc9dcd73b74b4336a45e4608519 /perl5 | |
| parent | dc8af7efc772365180905474f13df749a38c4f23 (diff) | |
| download | dotfiles-26d835aa1d03050e2082cd83f76aaeb09cd3fbab.tar.gz | |
change into repo before trying to call annex-review-unused
Local::MrRepo::Repo::Git::Annex, unlike Local::MrRepo::Repo, may
depend on non-core libs like File::chdir.
Diffstat (limited to 'perl5')
| -rw-r--r-- | perl5/Local/MrRepo/Repo/Git/Annex.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl5/Local/MrRepo/Repo/Git/Annex.pm b/perl5/Local/MrRepo/Repo/Git/Annex.pm index 9c6dec30..91d2d996 100644 --- a/perl5/Local/MrRepo/Repo/Git/Annex.pm +++ b/perl5/Local/MrRepo/Repo/Git/Annex.pm @@ -33,6 +33,7 @@ use Term::ReadKey; use Local::Interactive qw(prompt prompt_yn); use Storable; use List::Util qw(all); +use File::chdir; our @EXPORT_OK = (); @@ -71,6 +72,7 @@ sub review { if ($review_unused eq "true") { #<<< try { + local $CWD = $self->toplevel; $issues = App::annex_review_unused->main(["--just-print"]) || $issues; } catch { |