[Summary view] [Print] [Text view]

   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  
  16  use Time::Local;
  17  
  18  *timelocal::cheat = \&Time::Local::cheat;