From 8748d8bf9271e243e9b7f88c9676faa00756ccae Mon Sep 17 00:00:00 2001
From: laggardkernel <laggardkernel@gmail.com>
Date: Sun, 6 Oct 2024 15:47:11 +0800
Subject: [PATCH] get_pingtime: set a lower value for preferred host to make it
 work under a fake-ip proxy

---
 src/macports1.0/macports.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/macports1.0/macports.tcl b/src/macports1.0/macports.tcl
index c3891771e0..140044af88 100644
--- a/src/macports1.0/macports.tcl
+++ b/src/macports1.0/macports.tcl
@@ -6296,8 +6296,8 @@ proc macports::get_pingtime {host} {
         variable preferred_hosts
         foreach pattern $preferred_hosts {
             if {[string match -nocase $pattern $host]} {
-                dict set host_cache $host 1
-                return 1
+                dict set host_cache $host 0.001
+                return 0.001
             }
         }
         dict set host_cache $host 0