about summary refs log tree commit homepage
path: root/t/check-www-inbox.perl
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-01-21 03:09:22 +0000
committerEric Wong <e@80x24.org>2019-01-21 03:09:22 +0000
commit69822fef73720cb201bf9cb7f25ed5ea2c4fa10a (patch)
treeb0186b6d836f9588b3cb72f9bddd7d91e2b2ca78 /t/check-www-inbox.perl
parentcfa8ff7c256e20f3240aed5f98d155c019788e3b (diff)
downloadpublic-inbox-69822fef73720cb201bf9cb7f25ed5ea2c4fa10a.tar.gz
Oops, I might've left it out, somewhere.
Diffstat (limited to 't/check-www-inbox.perl')
-rw-r--r--t/check-www-inbox.perl4
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) = ('', '');