We don't want to serialize timestamps as strings to JSON.
I only noticed this bug on a 32-bit system.
chomp $oid;
my $buf = cat_file($self, $oid) or next;
$$buf =~ /^committer .*?> ([0-9]+) [\+\-]?[0-9]+/sm or next;
- my $cmt_time = $1;
+ my $cmt_time = $1 + 0;
$modified = $cmt_time if $cmt_time > $modified;
}
$modified || time;
$body .= $buf;
}
IO::Uncompress::Gunzip::gunzip(\$body => \$tmp);
+ unlike($tmp, qr/"modified":\s*"/, 'modified is an integer');
my $manifest = $json->decode($tmp);
ok(my $clone = $manifest->{'/alt'}, '/alt in manifest');
is($clone->{owner}, 'lorelei', 'owner set');