1 warn "Legacy library @{[(caller(0))[6]]} will be removed from the Perl core distribution in the next major release. Please install it from the CPAN distribution Perl4::CoreLibs. It is being used at @{[(caller)[1]]}, line @{[(caller)[2]]}.\n";
7 ;# $long = $foo{$short};
10 # This library is no longer being maintained, and is included for backward
11 # compatibility with Perl 4 programs which may require it.
12 # This legacy library is deprecated and will be removed in a future
15 # In particular, this should not be used as an example of modern Perl
16 # programming techniques.
18 # Suggested alternative: Text::Abbrev
28 @extra = split(//,$name);
29 $abbrev = shift(@extra);
32 next if $cmp eq $name;
33 while (@extra && substr($cmp,0,$len) eq $abbrev) {
34 $abbrev .= shift(@extra);
38 $domain{$abbrev} = $name;
39 while ($#extra >= 0) {
40 $abbrev .= shift(@extra);
41 $domain{$abbrev} = $name;