489c489
<          next unless $chost eq substr $host, -length $chost;
---
>          next unless $host eq substr $chost, -length $host;