Bugfix

alire-project · Sep 2, 2024 · 7b68f92 · 7b68f92
1 parent bddc37f
commit 7b68f92
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/alire/alire-uri.adb b/src/alire/alire-uri.adb
@@ -68,7 +68,11 @@ package body Alire.URI is
          --  This is a normal URI, so return with any trailing port removed
          --  (note that the host may be an IPv6 address in square brackets)
          if Has_Prefix (Auth, "[") then
-            return Head (Auth, "]:") & "]";
+            if Contains (Auth, "]:") then
+               return Head (Auth, "]:") & "]";
+            else
+               return Auth;
+            end if;
          else
             return Head (Auth, ":");
          end if;