From: Steffen Mueller <smueller@cpan.org>
Date: Wed, 2 Sep 2009 16:17:15 +0000 (+0200)
Subject: Deprecate timelocal.pl with a warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=406eeb0274d918fcd0b41e84e1bcbccf21c88a1f;p=p5sagit%2Fp5-mst-13.2.git

Deprecate timelocal.pl with a warning
---

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