Mail Archives: cygwin/2004/03/05/11:54:40
> -----Original Message-----
> From: cygwin-owner at cygwin dot com
> [mailto: cygwin-owner at cygwin dot com] On Behalf Of Keith Bainbridge
> Sent: Thursday, March 04, 2004 6:35 PM
> To: The Cygwin Mailing List
> Subject: Re: perl 5.8.2's localtime reports gmtime
>
>
> Steve Kelem wrote:
>
> > I'm running the latest cygwin, including perl 5.8.2:
> > % perl -version
> >
> > This is perl, v5.8.2 built for cygwin-thread-multi-64int
>
> Ug. Read the archives. This has come up several times in the last
> couple of weeks, it's a known bug that will be fixed in the
> next Cygwin
> DLL release. See for example
> <http://marc.theaimsgroup.com/?l=cygwin&m=107668514008908>. Your
> options are: Try a recent snapshot, use Perl <= 5.8.0, or wait for
> Cygwin 1.5.8.
>
> Brian
>
>
I actually implemented the following so that my script will still work
correctly after whatever whatever is fixed.
I am in the Central Time Zone, so you'd have to adjust the number of
seconds you add or remove accordingly.
[code]
use Time::Local;
print "GM: " . gmtime() . "\n";
print "Local: " . localtime() . "\n";
if (gmtime() eq localtime()) {
print "GM time and localtime are the same!\n";
print "I'll have to make some adjustments.\n";
if ($isdst) {
$time = time() - 18000;
} # end of if it is daylight savings time
else {
$time = time() - 21600;
} # end of else it is standard time
$adjtime = gmtime($time);
print "Adjusted: $adjtime\n";
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
gmtime($time);
$mon += 1;
$year += 1900;
} # end of if local time is calculated as gm time
else {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime;
$mon += 1;
$year += 1900;
} # end of else the local time is correct
[/code]
-Jason
--
Unsubscribe info: http://cygwin.com/ml/#unsubscribe-simple
Problem reports: http://cygwin.com/problems.html
Documentation: http://cygwin.com/docs.html
FAQ: http://cygwin.com/faq/
- Raw text -