common: avoid contents on HEAD method for all pages

[sheet.git] / common.inc.plp

diff --git a/common.inc.plp b/common.inc.plp
index 6ea11976106b6363bd8b0d88dfca1b267cae6476..f127505d71866bfb054b38b8ed36232194c3f6bd 100644 (file)
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -142,6 +142,7 @@ sub Html {
        # document headers before output
        $header{content_type} = "text/html; charset=$meta->{charset}"
                unless $PLP::sentheaders;
+       exit if $ENV{REQUEST_METHOD} eq 'HEAD';
        unshift @{ $meta->{raw} }, stylesheet($meta->{stylesheet});
 
        push @{ $meta->{raw} }, (