[cvsreport] looks like I'm bugging the western hemisphere

[Vincent Caron <address@hidden>]

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;

Generated by cvsreport 0.3.1