Deprecate timelocal.pl with a warning

diff --git a/lib/timelocal.pl b/lib/timelocal.pl
index ad32275..34d14a7 100644 (file)
--- 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." );