SYNOPSIS
use Date::Leapsecond;
use Time::Local;
$epoch_2000 = timegm(0,0,0,1,0,2000 - 1900);
$epoch_1990 = timegm(0,0,0,1,0,1990 - 1900);
print "Seconds between years 1990 and 2000 are ";
print Date::Leapsecond::ut1($epoch_2000) -
Date::Leapsecond::ut1($epoch_1990);
print " instead of ";
print $epoch_2000 -
$epoch_1990;
---------------------------
The following module was proposed for inclusion in the Module List:
modid: Date::Leapsecond
DSLIP: adpfp
description: translates between UTC and UT1 timescales
userid: FGLOCK (Fl�vio Soibelmann Glock)
chapterid: 6 (Data_Type_Utilities)
communities:
[EMAIL PROTECTED], [EMAIL PROTECTED]
similar:
Date::Leapyear
rationale:
This module can be used to calculate precise time laps, since the
unix epoch does not take care of leap seconds (as far as I know).
enteredby: FGLOCK (Fl�vio Soibelmann Glock)
enteredon: Wed May 29 18:34:27 2002 GMT
The resulting entry would be:
Date::
::Leapsecond adpfp translates between UTC and UT1 timescales
FGLOCK
