From b4091e4020dbac74f502d2b8a1f150918159a2a1 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Mon, 23 Mar 2020 11:15:00 -0700
Subject: don't look for source packages inside .git dirs

---
 perl5/Local/Homedir.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'perl5')

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