diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-23 11:15:00 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-03-23 12:02:03 -0700 |
| commit | b4091e4020dbac74f502d2b8a1f150918159a2a1 (patch) | |
| tree | 9d0465cb44dc546fcc7111c24eda699d0d9183d0 /perl5 | |
| parent | b33eeb78ff9e271d0c94f384f02e09abb45de917 (diff) | |
| download | dotfiles-b4091e4020dbac74f502d2b8a1f150918159a2a1.tar.gz | |
don't look for source packages inside .git dirs
Diffstat (limited to 'perl5')
| -rw-r--r-- | perl5/Local/Homedir.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perl5/Local/Homedir.pm b/perl5/Local/Homedir.pm index 3920369d..d4e25c6d 100644 --- a/perl5/Local/Homedir.pm +++ b/perl5/Local/Homedir.pm @@ -157,9 +157,12 @@ sub src_cleanup { = catfile getcwd, $dir; }, preprocess => sub { - # once we've found a source package, don't search inside + # skip .git (to avoid .git/dgit/unpack dirs), and once + # we've found a source package, don't search inside # for more source packages - return (-f catfile("debian", "changelog")) ? () : @_; + -f catfile("debian", "changelog") + ? () + : grep { $_ ne ".git" } @_ } }, "$ENV{HOME}/src" |