# s. RT#248075 zur Frage, warum wir nicht $RE{net}{domain}{-nospace} verwenden
# und RT#396405-33 zur Frage, warum wir nun doch Label zulassen, die nur aus
# Ziffern bestehen:
my $label = qr/[A-Za-z0-9](?:[-A-Za-z0-9]{0,61}[A-Za-z0-9])?/;

# stellt fest, ob der übergebene Parameter ein (in unserem Sinne) gültiger FQDN ist

use utf8;
use strict;
use warnings; no warnings "redefine";

sub valid_fqdn($) {
	my ($fqdn) = @_;
	$fqdn =~ /[A-Za-z]/ && $fqdn =~ /^$label(?:\.$label)+\z/o;
}

1;
