From 51efccd0c6a0a3644a0f9be2fad3feccfc4878f6 Mon Sep 17 00:00:00 2001
From: albert-github <albert.tests@gmail.com>
Date: Sat, 22 Oct 2022 14:59:52 +0200
Subject: [PATCH] Windows drive letter incorrectly detected

A windows drive letter can only be one character now the filename from e.g. ../package::file.pl was incorrectly  detected as file.pl instead of package::file.pl
(it is a bit of a strange file name)
---
 lib/Doxygen/Filter/Perl.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Doxygen/Filter/Perl.pm b/lib/Doxygen/Filter/Perl.pm
index d887c4e..c4de518 100644
--- a/lib/Doxygen/Filter/Perl.pm
+++ b/lib/Doxygen/Filter/Perl.pm
@@ -161,7 +161,7 @@ sub ReadFile
     # Replace forward slash with a black slash
     $sFilename =~ s/\\/\//g;
     # Remove windows style drive letters
-    $sFilename =~ s/^.*://;
+    $sFilename =~ s/^.://;
  
     # Lets grab just the file name not the full path for the short name
     $sFilename =~ /^(.*\/)*(.*)$/;