lib/timelocal.pl

   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 ;# This legacy library is deprecated and will be removed in a future
  11 ;# release of perl.
  12
  13 ;# The current implementation shares with the original the questionable
  14 ;# behavior of defining the timelocal() and timegm() functions in the
  15 ;# namespace of whatever package was current when the first instance of
  16 ;# C<require 'timelocal.pl';> was executed in a program.
  17
  18 use Time::Local;
  19
  20 *timelocal::cheat = \&Time::Local::cheat;
  21
  22 warn( "The 'timelocal.pl' legacy library is deprecated and will be"
  23       . " removed in the next major release of perl. Please use the"
  24       . " Time::Local module instead." );