format-patch: pretty-print timestamp correctly.
Perl is not C and does not truncate the division result. Arghh! Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
@ -189,7 +189,7 @@ my @month_names = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
|
|||||||
sub show_date {
|
sub show_date {
|
||||||
my ($time, $tz) = @_;
|
my ($time, $tz) = @_;
|
||||||
my $minutes = abs($tz);
|
my $minutes = abs($tz);
|
||||||
$minutes = ($minutes / 100) * 60 + ($minutes % 100);
|
$minutes = int($minutes / 100) * 60 + ($minutes % 100);
|
||||||
if ($tz < 0) {
|
if ($tz < 0) {
|
||||||
$minutes = -$minutes;
|
$minutes = -$minutes;
|
||||||
}
|
}
|
||||||
|
Reference in New Issue
Block a user