Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

18 lines
708 B

  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. ;# This file has been superseded by the Time::Local library module.
  7. ;# It is implemented as a call to that module for backwards compatibility
  8. ;# with code written for perl4; new code should use Time::Local directly.
  9. ;# The current implementation shares with the original the questionable
  10. ;# behavior of defining the timelocal() and timegm() functions in the
  11. ;# namespace of whatever package was current when the first instance of
  12. ;# C<require 'timelocal.pl';> was executed in a program.
  13. use Time::Local;
  14. *timelocal::cheat = \&Time::Local::cheat;