--- deliantra/server/ext/login.ext	2012/11/21 14:37:38	1.133
+++ deliantra/server/ext/login.ext	2018/02/20 14:28:27	1.134
@@ -26,6 +26,8 @@
 }
 
 sub can_cleanup {
+   return 0; # highscore list is not cleared out, rethink
+
    my ($pl, $mtime) = @_;
 
    my $age = time - $mtime;