diff options
Diffstat (limited to 'Master/tlpkg/tlperl0/lib/timelocal.pl')
-rwxr-xr-x | Master/tlpkg/tlperl0/lib/timelocal.pl | 18 |
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; |