Tags: patch
The attached patch fixes the bug here.
--- /usr/share/perl5/Date/Format.pm~ 2007-06-13 14:37:55.000000000 +0930
+++ /usr/share/perl5/Date/Format.pm 2007-06-13 14:38:13.000000000 +0930
@@ -236,7 +236,7 @@
sub format_z {
my $t = timelocal(@{$_[0]}[0..5]);
my $o = defined $tzname ? tz_offset($tzname, $t) : tz_offset(undef,$t);
- sprintf("%+03d%02d", int($o / 3600), abs(int($o % 3600)));
+ sprintf("%+03d%02d", int($o / 3600), abs(int(($o / 60) % 60)));
}
sub format_c { &format_x . " " . &format_X }
