charnames: Abbreviations wrong on certain C1 controls

[perl5.git] / lib / shellwords.pl

diff --git a/lib/shellwords.pl b/lib/shellwords.pl
index b3ef33e..b562f5f 100644 (file)
--- a/lib/shellwords.pl
+++ b/lib/shellwords.pl
@@ -1,3 +1,8 @@
+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";
+
+;# This legacy library is deprecated and will be removed in a future
+;# release of perl.
+;#
 ;# shellwords.pl
 ;#
 ;# Usage: