fix badword, ipv6 address detect, add CTY

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 6ddaa30b0b7f329e5aab1937ee85944087ced4d0..718a2f1724c09fc1273dba16fbedb23b6b146331 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -671,7 +671,7 @@ sub setup_start
        UDPMsg::init(\&new_channel);
 
        # load bad words
-       dbg("load badwords: " . (BadWords::load or "Ok"));
+       dbg("load badwords: " . (BadWords::load() or "Ok"));
 
        # prime some signals
        unless ($DB::VERSION) {