Группа :: Разработка/Lisp
Пакет: newlisp
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: newlisp-9.4.4-test.patch
Скачать
Скачать
diff -urN newlisp-9.4.4.orig/qa-dot newlisp-9.4.4/qa-dot
--- newlisp-9.4.4.orig/qa-dot 2008-07-27 18:50:00 +0300
+++ newlisp-9.4.4/qa-dot 2008-08-02 18:37:21 +0300
@@ -1486,7 +1486,7 @@
(define (test-net-lookup )
(and
(or (= "127.0.0.1" (net-lookup "localhost")) (= "::1" (net-lookup "localhost")))
- (or (= "localhost" (net-lookup "127.0.0.1")) (= "localhost" (net-lookup "::1")))
+ (or (= "localhost" (net-lookup "127.0.0.1")) (= "localhost.localdomain" (net-lookup "127.0.0.1")) (= "localhost" (net-lookup "::1")))
)
)