From bddc44fcfdd1a2bf394a4eaa0517c9bf20e11fbf Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Thu, 15 May 2025 18:13:19 +0300
Subject: [PATCH] Bugfixes

---
 swg | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/swg b/swg
index 3320eb6..9d84468 100755
--- a/swg
+++ b/swg
@@ -229,7 +229,10 @@ sub genHTML {
             $base .= q{index};
         }
         $base = dirname $base;
-        foreach (sort @links) {
+        if ($base eq q{/}) {
+            $base = ".";
+        }
+        foreach (@links) {
             $rel = File::Spec->abs2rel($_, $base);
             if (-d) {
                 if ($rel eq q{.}) {
-- 
2.48.1