blob: 987e4b8acb7ddd0e2b2f131adf48da7c4776bfc8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
--- 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;
|
