From 4ce38173fe834be1ef5f1b348251463f85a9d04a Mon Sep 17 00:00:00 2001
From: Christian Walde <walde.christian@gmail.com>
Date: Fri, 17 Jan 2025 11:32:39 +0100
Subject: [PATCH] add a fallback for providing the source of a file not loaded
 in the debugger bridge

---
 lib/Perl/LanguageServer/DebuggerInterface.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Perl/LanguageServer/DebuggerInterface.pm b/lib/Perl/LanguageServer/DebuggerInterface.pm
index c7dfff8..8a37f1b 100644
--- a/lib/Perl/LanguageServer/DebuggerInterface.pm
+++ b/lib/Perl/LanguageServer/DebuggerInterface.pm
@@ -1494,7 +1494,7 @@ sub req_source
     my ($class, $params) = @_ ;
 
     my $filename    = $params -> {filename} ;
-    my $source = join("", @{$main::{'_<'.$filename}});
+    my $source = join("", @{$main::{'_<'.$filename} // ["... source not found: $filename ..."]});
     $source =~ s/\n;$//;
 	  
     return { content => $source };