From 6e6c3b5938c1d8d1917a1ff7444d9ba9844ffce5 Mon Sep 17 00:00:00 2001
From: bscan <10503608+bscan@users.noreply.github.com>
Date: Fri, 1 Mar 2024 13:58:02 -0500
Subject: Use follow_skip to avoid crashing on some symlink setups. Also skip
 'next'. Fixes #115

---
 server/src/perl/lib_bs22/ModHunter.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/server/src/perl/lib_bs22/ModHunter.pl b/server/src/perl/lib_bs22/ModHunter.pl
index c9e6344..a31fbe1 100644
--- a/server/src/perl/lib_bs22/ModHunter.pl
+++ b/server/src/perl/lib_bs22/ModHunter.pl
@@ -24,6 +24,7 @@ sub get_modules {
                     push @files, $_ if -f $_ and /\.pm$/ },
             no_chdir => 1,
             follow_fast => 1,  # May generate duplicates
+            follow_skip => 2,  # Don't if we observe duplicates
         },
         @find_dirs
     );
@@ -85,7 +86,7 @@ sub myuniq {
 my $modsFound = get_modules();
 
 # Generally, having keywords like "if" provide hover or definitions as a module is more confusing than helpful.
-my @modsToSkip = ('if', 'open', 'sort');
+my @modsToSkip = ('if', 'open', 'sort', 'next');
 delete $modsFound->{$_} foreach @modsToSkip;
 
 print "Dumping Mods\n";
-- 
cgit v1.2.3