diff options
| author | Zefram <zefram@fysh.org> | 2010-04-17 15:25:10 +0100 |
|---|---|---|
| committer | Jesse Vincent <jesse@bestpractical.com> | 2010-06-28 22:30:03 -0400 |
| commit | 0111154e36e017cd8f7830ff1ed29407df297e00 (patch) | |
| tree | 72f8ef1592503293a05a6357bab7887cc7ff56f3 /lib/abbrev.pl | |
| parent | 3d71525dd80b2889a3317b298f7f976b659d8e5b (diff) | |
| download | perl-0111154e36e017cd8f7830ff1ed29407df297e00.tar.gz | |
deprecation warning on deprecated-in-core .pl libs
This is a mandatory warning, not obeying -X or lexical warning bits.
To make it behave like an internal deprecation warning would be a lot
of hassle to do in pure Perl.
The warning is modelled on that supplied by deprecate.pm for
deprecated-in-core .pm libraries. It points to the specific CPAN
distribution that contains the .pl libraries. The CPAN version, of
course, does not generate the warning.
Diffstat (limited to 'lib/abbrev.pl')
| -rw-r--r-- | lib/abbrev.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/abbrev.pl b/lib/abbrev.pl index 673783ecdf..d46321f730 100644 --- a/lib/abbrev.pl +++ b/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); |