1;# timelocal.pl 2;# 3;# Usage: 4;# $time = timelocal($sec,$min,$hours,$mday,$mon,$year); 5;# $time = timegm($sec,$min,$hours,$mday,$mon,$year); 6 7;# This file has been superseded by the Time::Local library module. 8;# It is implemented as a call to that module for backwards compatibility 9;# with code written for perl4; new code should use Time::Local directly. 10 11;# The current implementation shares with the original the questionable 12;# behavior of defining the timelocal() and timegm() functions in the 13;# namespace of whatever package was current when the first instance of 14;# C<require 'timelocal.pl';> was executed in a program. 15 16use Time::Local; 17 18*timelocal::cheat = \&Time::Local::cheat; 19