use utf8;
use strict;
use warnings;
no warnings 'redefine';

sub valid_hostgroup_name($) {
	my $name = shift;
	$name =~ /^[0-9a-z][-._a-z0-9]{0,63}$/ && $name =~ /\D/;
}

1;
