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.
10 # This legacy library is deprecated and will be removed in a future
13 # In particular, this should not be used as an example of modern Perl
14 # programming techniques.
16 # Suggested alternative: Text::Abbrev
27 @extra = split(//,$name);
28 $abbrev = shift(@extra);
31 next if $cmp eq $name;
32 while (@extra && substr($cmp,0,$len) eq $abbrev) {
33 $abbrev .= shift(@extra);
37 $domain{$abbrev} = $name;
38 while ($#extra >= 0) {
39 $abbrev .= shift(@extra);
40 $domain{$abbrev} = $name;