# This library is no longer being maintained, and is included for backward
# compatibility with Perl 4 programs which may require it.
# In particular, this should not be used as an example of modern Perl
# programming techniques.
# Suggested alternative: Text::Abbrev
@extra = split(//,$name);
while (@extra && substr($cmp,0,$len) eq $abbrev) {
$abbrev .= shift(@extra);
$domain{$abbrev} = $name;
$abbrev .= shift(@extra);
$domain{$abbrev} = $name;