Fixes /etc/localtime-based tz detection for relative paths

97jaz · Nov 4, 2015 · a8038e4 · a8038e4
1 parent 1209b89
commit a8038e4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tzinfo/private/os/unix.rkt b/tzinfo/private/os/unix.rkt
@@ -34,7 +34,7 @@
 
   (and (file-exists? /etc/localtime)
        default-zoneinfo-dir
-       (let ([rel (find-relative-path default-zoneinfo-dir (resolve-path /etc/localtime))])
+       (let ([rel (find-relative-path default-zoneinfo-dir (normalize-path /etc/localtime "/etc"))])
          (match (explode-path rel)
            [(cons 'up _) (find-matching-zone)]
            [_ (path->string rel)]))))