summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl0/lib/timelocal.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/timelocal.pl')
-rwxr-xr-xMaster/tlpkg/tlperl0/lib/timelocal.pl18
1 files changed, 18 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl0/lib/timelocal.pl b/Master/tlpkg/tlperl0/lib/timelocal.pl
new file mode 100755
index 00000000000..ad322756e38
--- /dev/null
+++ b/Master/tlpkg/tlperl0/lib/timelocal.pl
@@ -0,0 +1,18 @@
+;# timelocal.pl
+;#
+;# Usage:
+;# $time = timelocal($sec,$min,$hours,$mday,$mon,$year);
+;# $time = timegm($sec,$min,$hours,$mday,$mon,$year);
+
+;# 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.
+
+;# The current implementation shares with the original the questionable
+;# behavior of defining the timelocal() and timegm() functions in the
+;# namespace of whatever package was current when the first instance of
+;# C<require 'timelocal.pl';> was executed in a program.
+
+use Time::Local;
+
+*timelocal::cheat = \&Time::Local::cheat;