lib/PublicInbox/WwwAtomStream.pm | 3 ++-
t/psgi_v2.t | 5 +++++
diff --git a/lib/PublicInbox/WwwAtomStream.pm b/lib/PublicInbox/WwwAtomStream.pm
index f60251b7ef12c2779779e4e81bf9186689acca2e..5d32294eec159f58cb9b2ff7153f512c5d0d3b63 100644
--- a/lib/PublicInbox/WwwAtomStream.pm
+++ b/lib/PublicInbox/WwwAtomStream.pm
@@ -161,7 +161,8 @@ $s .= '';
}
sub feed_updated {
- '' . strftime('%Y-%m-%dT%H:%M:%SZ', gmtime(@_)) . '';
+ my ($t) = @_;
+ '' . strftime('%Y-%m-%dT%H:%M:%SZ', gmtime($t)) . '';
}
1;
diff --git a/t/psgi_v2.t b/t/psgi_v2.t
index e057068226ac0eac778ec6cb82cea85ec38c8656..64c1a8d38a0a5b842568657bde03d71175ec17a3 100644
--- a/t/psgi_v2.t
+++ b/t/psgi_v2.t
@@ -92,6 +92,11 @@ $res = $cb->(GET('/v2test/new.html'));
@bodies = ($res->content =~ /^(hello [^<]+)$/mg);
is_deeply(\@bodies, [ "hello world!\n", "hello world\n" ],
'new.html ordering is chronological');
+
+ $res = $cb->(GET('/v2test/new.atom'));
+ my @dates = ($res->content =~ m!title>([^<]+)!g);
+ is_deeply(\@dates, [ "1993-10-02T00:01:00Z", "1993-10-02T00:00:00Z" ],
+ 'Date headers made it through');
};
test_psgi(sub { $www->call(@_) }, $client0);
my $env = { TMPDIR => $tmpdir, PI_CONFIG => $cfgpath };