--- utils.pm.orig       Thu Sep 28 14:05:56 2006
+++ utils.pm    Thu Sep 28 14:06:01 2006
@@ -73,7 +73,7 @@
 
 sub is_hostname {
        my $host1 = shift;
-       if ($host1 && $host1 =~ m/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+|[a-zA-Z0-9][-a-zA-Z0-9]+(\.[a-zA-Z][-a-zA-Z0-9]+)*)$/) {
+       if ($host1 && $host1 =~ m/^([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+|[a-zA-Z0-9][-a-zA-Z0-9]+(\.[a-zA-Z0-9][-a-zA-Z0-9]+)*\.[a-zA-Z][-a-zA-Z0-9]+)$/) {
                return 1;
        }else{
                return 0;