diff options
author | Eric Wong <e@80x24.org> | 2019-01-21 03:09:22 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-01-21 03:09:22 +0000 |
commit | 69822fef73720cb201bf9cb7f25ed5ea2c4fa10a (patch) | |
tree | b0186b6d836f9588b3cb72f9bddd7d91e2b2ca78 | |
parent | cfa8ff7c256e20f3240aed5f98d155c019788e3b (diff) | |
download | public-inbox-69822fef73720cb201bf9cb7f25ed5ea2c4fa10a.tar.gz |
Oops, I might've left it out, somewhere.
-rw-r--r-- | t/check-www-inbox.perl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/check-www-inbox.perl b/t/check-www-inbox.perl index 7dd1eebe..6232f164 100644 --- a/t/check-www-inbox.perl +++ b/t/check-www-inbox.perl @@ -156,7 +156,9 @@ sub worker_loop { # make sure the HTML source doesn't screw up terminals # when people curl the source (not remotely an expert # on languages or encodings, here). - my $ct = $r->header('Content-Type'); + my $ct = $r->header('Content-Type') || ''; + warn "no Content-Type: $u\n" if $ct eq ''; + if ($atom_check && $ct =~ m!\bapplication/atom\+xml\b!) { my $raw = $r->decoded_content; my ($out, $err) = ('', ''); |