From 56c4e93c4f965ebc63545bd2e872e5602c4bf956 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sun, 23 May 2021 22:31:22 -0700
Subject: src_register_all: correctly handle repos under a subdir of ~/src

---
 perl5/Local/Homedir.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3