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.