From 943cfffe9983215c8d8bb0702b3e143e6190f80a Mon Sep 17 00:00:00 2001
From: Marc Reisner <mreisner@epic.com>
Date: Mon, 24 Jun 2024 12:40:40 -0500
Subject: [PATCH] Actually use globbed perl path

---
 server/lib/PLS/Server/Request/Workspace/Configuration.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/server/lib/PLS/Server/Request/Workspace/Configuration.pm b/server/lib/PLS/Server/Request/Workspace/Configuration.pm
index d2b3fc6..2fe6e8b 100644
--- a/server/lib/PLS/Server/Request/Workspace/Configuration.pm
+++ b/server/lib/PLS/Server/Request/Workspace/Configuration.pm
@@ -82,7 +82,7 @@ sub handle_response
     if (exists $config->{syntax}{perl} and length $config->{syntax}{perl})
     {
         my ($perl) = glob $config->{syntax}{perl};
-        PLS::Parser::Pod->set_perl_exe($config->{syntax}{perl});
+        PLS::Parser::Pod->set_perl_exe($perl);
     }
 
     if (exists $config->{syntax}{args} and ref $config->{syntax}{args} eq 'ARRAY' and scalar @{$config->{syntax}{args}})