diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-23 22:31:22 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-23 22:31:22 -0700 |
| commit | 56c4e93c4f965ebc63545bd2e872e5602c4bf956 (patch) | |
| tree | f3596c589b7421419e7dfe5511deb2a21cb61dc9 | |
| parent | 7b22752f3ad3a7afed46d9d30b86f98fd2f27e59 (diff) | |
| download | dotfiles-56c4e93c4f965ebc63545bd2e872e5602c4bf956.tar.gz | |
src_register_all: correctly handle repos under a subdir of ~/src
| -rw-r--r-- | perl5/Local/Homedir.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perl5/Local/Homedir.pm b/perl5/Local/Homedir.pm index d4e25c6d..687cd8ec 100644 --- a/perl5/Local/Homedir.pm +++ b/perl5/Local/Homedir.pm @@ -98,6 +98,7 @@ sub src_register_all { } find({wanted => sub { return unless is_repo($_); + my $oldpwd = getcwd; chdir $_; my $register_out = `mr -c $ENV{HOME}/.mrconfig register 2>&1`; unless ($? == 0) { @@ -105,7 +106,7 @@ sub src_register_all { print STDERR $register_out."\n"; die "src_register_all mr register attempt failed"; } - chdir ".."; + chdir $oldpwd; }, preprocess => sub { my $cwd = getcwd(); # once we've found a repo, don't search inside it for more repos |