diff options
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 { |