| Line | |
|---|
| 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;
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
