From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00 shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 52A1F21430 for ; Mon, 21 Jan 2019 20:53:01 +0000 (UTC) From: Eric Wong To: meta@public-inbox.org Subject: [PATCH 34/37] t/check-www-inbox: warn on missing Content-Type Date: Mon, 21 Jan 2019 20:52:50 +0000 Message-Id: <20190121205253.10455-35-e@80x24.org> In-Reply-To: <20190121205253.10455-1-e@80x24.org> References: <20190121205253.10455-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: Oops, I might've left it out, somewhere. --- t/check-www-inbox.perl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/t/check-www-inbox.perl b/t/check-www-inbox.perl index 7dd1eeb..6232f16 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) = ('', ''); -- EW