Changeset 12032 in project

Timestamp:

09/29/08 14:03:20 (11 years ago)

Author:

elf

Message:

8 - 4 = 4, not 2. this means 32 bits, not 16. im a genius. *sigh*

File:

• release/3/dns/dns.scm (modified) (1 diff)

release/3/dns/dns.scm

@@ -501 +501 @@
            (type    (bstr16->num data (cdr name)))
            (class   (bstr16->num data (+ 2 (cdr name))))
-           (ttl     (bstr16->num data (+ 4 (cdr name))))
+           (ttl     (bstr32->num data (+ 4 (cdr name))))
            (len     (bstr16->num data (+ 8 (cdr name))))
            (rdata   (substring data (+ 10 (cdr name)) (+ 10 len (cdr name))))