summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/abbrev.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/abbrev.pl')
-rw-r--r--Master/tlpkg/tlperl/lib/abbrev.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/abbrev.pl b/Master/tlpkg/tlperl/lib/abbrev.pl
index cd20063f003..d46321f730c 100644
--- a/Master/tlpkg/tlperl/lib/abbrev.pl
+++ b/Master/tlpkg/tlperl/lib/abbrev.pl
@@ -1,3 +1,5 @@
+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";
+
;# Usage:
;# %foo = ();
;# &abbrev(*foo,LIST);
@@ -22,7 +24,6 @@ sub main'abbrev {
local(*domain) = @_;
shift(@_);
@cmp = @_;
- local($[) = 0;
foreach $name (@_) {
@extra = split(//,$name);
$abbrev = shift(@extra);