Deprecate timelocal.pl with a warning

1 files changed, 6 insertions, 0 deletions

diff --git a/lib/timelocal.pl b/lib/timelocal.pl
index ad322756e3..34d14a7b9f 100644
--- a/lib/timelocal.pl
+++ b/lib/timelocal.pl
@@ -7,6 +7,8 @@
 ;# This file has been superseded by the Time::Local library module.
 ;# It is implemented as a call to that module for backwards compatibility
 ;# with code written for perl4; new code should use Time::Local directly.
+;# This legacy library is deprecated and will be removed in a future
+;# release of perl.
 
 ;# The current implementation shares with the original the questionable
 ;# behavior of defining the timelocal() and timegm() functions in the
@@ -16,3 +18,7 @@
 use Time::Local;
 
 *timelocal::cheat = \&Time::Local::cheat;
+
+warn( "The 'timelocal.pl' legacy library is deprecated and will be"
+      . " removed in the next major release of perl. Please use the"
+      . " Time::Local module instead." );