"Fossies" - the Fresh Open Source Software Archive

Member "mod_perl-2.0.11/ModPerl-Registry/t/cgi-bin/bin_resp_start_0.pl" (5 Oct 2019, 511 Bytes) of package /linux/www/apache_httpd_modules/mod_perl-2.0.11.tar.gz:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file. See also the last Fossies "Diffs" side-by-side code changes report for "bin_resp_start_0.pl": 2.0.8_vs_2.0.9.

    1 #!/usr/bin/perl -w
    2 # please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
    3 
    4 use strict;
    5 use warnings FATAL => 'all';
    6 
    7 # favicon.ico and other .ico image/x-icon images start with this sequence
    8 my $response = "\000\000\001\000";
    9 
   10 # test here that the cgi header parser doesn't get confused and decide
   11 # that there is no response body if it starts with \000 sequence
   12 
   13 print "Content-type: image/x-icon\n\n";
   14 print $response;