|
From: | Vincent Caron <address@hidden> |
Subject: | [cvsreport] looks like I'm bugging the western hemisphere |
Date: | Wed, 30 Jul 2003 21:44:52 -0400 |
Commit from zerodeux | 2003-07-31 07:44 UTC |
looks like I'm bugging the western hemisphere
Module | File name | Revision | |||
---|---|---|---|---|---|
cvsreport | cvsreport | 1.26 | >>> | 1.27 |
cvsreport/cvsreport 1.26 >>> 1.27 |
---|
Line 180 |
my $ctime = mktime(0, $min, $hour + 1, $day, $month - 1, $year - 1900); if ($zone ne '') { |
- # remove starting '+' - $zone =~ s/^\+//; |
+ # remove starting '+' or '-' + $zone =~ s/^([\+\-])//; |
# Compute zone time shift in minutes my $zone_shift = (substr $zone, 0, 2) * 60 + (substr $zone, 2, 2); |
+ $zone_shift = -$zone_shift if $1 eq '-'; |
# Adjust ctime to UTC my $ctime -= $zone_shift * 60; |
[Prev in Thread] | Current Thread | [Next in Thread] |