mktables: Add override for map tables output

[perl5.git] / lib / validate.pl

diff --git a/lib/validate.pl b/lib/validate.pl
index c655872..fc2d16a 100644 (file)
--- a/lib/validate.pl
+++ b/lib/validate.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";
+
 ;# The validate routine takes a single multiline string consisting of
 ;# lines containing a filename plus a file test to try on it.  (The
 ;# file test may also be a 'cd', causing subsequent relative filenames