From b9ab5000f46963dab18afe4a21d55ff32fdada35 Mon Sep 17 00:00:00 2001 From: Fabien Chouteau Date: Thu, 20 May 2021 10:12:00 +0200 Subject: [PATCH] Check_Absolute_Path on Windows should also accept lowercase drive letters (#741) #739 --- src/alire/os_windows/alire-check_absolute_path.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/alire/os_windows/alire-check_absolute_path.adb b/src/alire/os_windows/alire-check_absolute_path.adb index 7086c32e..716707e7 100644 --- a/src/alire/os_windows/alire-check_absolute_path.adb +++ b/src/alire/os_windows/alire-check_absolute_path.adb @@ -2,7 +2,7 @@ separate (Alire) function Check_Absolute_Path (Path : Any_Path) return Boolean is begin return (Path'Length >= 3 - and then Path (Path'First) in 'A' .. 'Z' + and then Path (Path'First) in 'A' .. 'Z' | 'a' .. 'z' and then Path (Path'First + 1) = ':' and then Path (Path'First + 2) = GNAT.OS_Lib.Directory_Separator); end Check_Absolute_Path; -- 2.39.5