5 ;# $long = $foo{$short};
8 # This library is no longer being maintained, and is included for backward
9 # compatibility with Perl 4 programs which may require it.
11 # In particular, this should not be used as an example of modern Perl
12 # programming techniques.
14 # Suggested alternative: Text::Abbrev
25 @extra = split(//,$name);
26 $abbrev = shift(@extra);
29 next if $cmp eq $name;
30 while (@extra && substr($cmp,0,$len) eq $abbrev) {
31 $abbrev .= shift(@extra);
35 $domain{$abbrev} = $name;
36 while ($#extra >= 0) {
37 $abbrev .= shift(@extra);
38 $domain{$abbrev} = $name;