899: #
900: # Check names.
901: #
902: sub _checkNSNames {
903:   my $names = $_[0];
904:   my $i = 1;
905:   my $name = $names->[0];