diff options
author | Eric Wong (Contractor, The Linux Foundation) <e@80x24.org> | 2019-06-09 00:53:29 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-06-10 04:58:04 +0000 |
commit | d3c94cf92e8a4693aa691f3464c94c00be543cfc (patch) | |
tree | 0417c54de09e8a74f5bdfb6127972332f93f8aa9 | |
parent | 0886c264b24b8bc7626e5a7eb59598b0229f066d (diff) | |
download | public-inbox-d3c94cf92e8a4693aa691f3464c94c00be543cfc.tar.gz |
git: ensure ->modified returns an integer
We don't want to serialize timestamps as strings to JSON. I only noticed this bug on a 32-bit system.
-rw-r--r-- | lib/PublicInbox/Git.pm | 2 | ||||
-rw-r--r-- | t/www_listing.t | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lib/PublicInbox/Git.pm b/lib/PublicInbox/Git.pm index 68445b3c..82510b99 100644 --- a/lib/PublicInbox/Git.pm +++ b/lib/PublicInbox/Git.pm @@ -320,7 +320,7 @@ sub modified ($) { 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; diff --git a/t/www_listing.t b/t/www_listing.t index 2741e1b8..1f292980 100644 --- a/t/www_listing.t +++ b/t/www_listing.t @@ -96,6 +96,7 @@ SKIP: { $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'); |