diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2022-10-16 15:54:34 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-10-18 12:40:47 -0700 |
| commit | 5b165f7a3b8ca561debd4920356ceeaa923fccfb (patch) | |
| tree | f34e79ae241ed08d9ab6d956b1f7c8758b4de9ad /perl5 | |
| parent | fb078c0fb7f275f802eb78531344ef848798646b (diff) | |
| download | dotfiles-5b165f7a3b8ca561debd4920356ceeaa923fccfb.tar.gz | |
attempt to replace normalise-mrconfig script w/ "include" directive
Diffstat (limited to 'perl5')
| -rw-r--r-- | perl5/Local/Homedir.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/perl5/Local/Homedir.pm b/perl5/Local/Homedir.pm index b20259b6..1ed0ce7a 100644 --- a/perl5/Local/Homedir.pm +++ b/perl5/Local/Homedir.pm @@ -90,11 +90,13 @@ sub blocks_from_file ($) { sub src_register_all { chdir; my @known_repos; - open my $fh, "<", ".mrconfig"; - while (<$fh>) { - if (/^\[(src\/.+)\]$/) { - push @known_repos, $ENV{HOME}."/$1"; - } + foreach my $f (".mrconfig", "src/dotfiles/lib-src/mr/config") { + open my $fh, "<", $f; + while (<$fh>) { + if (/^\[(src\/.+)\]$/) { + push @known_repos, $ENV{HOME}."/$1"; + } + } } find({wanted => sub { return unless is_repo($_); |