Use FindNearestFileOrDirectory, perl languageserver (dense-analysis#5038)

Update to use mentioned function to find both .git/ directories and .git
worktree files.

Co-authored-by: cos <cos>

Author: rymdbar

ale_linters/perl/languageserver.vim

@@ -9,7 +9,7 @@ function! ale_linters#perl#languageserver#GetProjectRoot(buffer) abort
     " Makefile.PL, https://perldoc.perl.org/ExtUtils::MakeMaker
     " Build.PL, https://metacpan.org/pod/Module::Build
     " dist.ini, https://metacpan.org/pod/Dist::Zilla
-    let l:potential_roots = [ 'Makefile.PL', 'Build.PL', 'dist.ini', '.git' ]
+    let l:potential_roots = [ 'Makefile.PL', 'Build.PL', 'dist.ini' ]
 
     for l:root in l:potential_roots
         let l:project_root = ale#path#FindNearestFile(a:buffer, l:root)
@@ -19,6 +19,12 @@ function! ale_linters#perl#languageserver#GetProjectRoot(buffer) abort
         endif
     endfor
 
+    let l:project_root = ale#path#FindNearestFileOrDirectory(a:buffer, '.git')
+
+    if !empty(l:project_root)
+        return fnamemodify(l:project_root . '/', ':p:h:h')
+    endif
+
     return fnamemodify(expand('#' . a:buffer . ':p:h'), ':p:h')
 endfunction