another attempted fix at syntax
This commit is contained in:
@ -7,7 +7,7 @@ use Regexp::Common qw/net/;
|
||||
|
||||
my $host = shift || die "No vhost provided";
|
||||
#my $master = shift || die "No master DNS IP provided";
|
||||
my $master ||= '198.251.79.234,2607:f1c0:86e:b66f:6b86:babb:c367:b0dc';
|
||||
my $master ||= '198.251.79.234;2607:f1c0:86e:b66f:6b86:babb:c367:b0dc';
|
||||
|
||||
die "Hostname must end in a dot"
|
||||
unless ($host =~ /^[a-zA-Z0-9\.\-\_]+\.$/);
|
||||
|
||||
Reference in New Issue
Block a user