Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re^3: mod_perl and CGI behavior

by davebaker (Pilgrim)
on Sep 30, 2020 at 20:32 UTC ( [id://11122383]=note: print w/replies, xml ) Need Help??


in reply to Re^2: mod_perl and CGI behavior
in thread mod_perl and CGI behavior

Yes, something going on at line 1617 of CGI.pm at github, inside sub "header" --
if (($MOD_PERL >= 1) && !$nph) { $self->r->send_cgi_header($header); return ''; }
which explains the empty set being returned, after it's invoked a "send_cgi_header" mod_perl method that seems to be designed to take the place of sub "header" as a practical matter.

Replies are listed 'Best First'.
Re^4: mod_perl and CGI behavior
by naChoZ (Curate) on Oct 07, 2020 at 22:00 UTC

    Interesting. That did the trick actually. So this test code...

    my $test_header = $cgi->header( -type => 'application/xml' ); ddump('test_header', __LINE__, $test_header); my $another_test_header = $cgi->header( -nph => 1, -type => 'application/xml' ); ddump('another_test_header', __LINE__, $another_test_header);

    ...produced the following debug output...

    $test_header_line_673_1 = ''; $another_test_header_line_680_1 = 'HTTP/1.1 200 OK Server: Apache/2.4.34 (Red Hat) OpenSSL/1.0.2k-fips mod_perl/2.0.11 Pe +rl/v5.22.4 Date: Wed, 07 Oct 2020 21:53:46 GMT Content-Type: application/xml; charset=ISO-8859-1 ';

    --
    Andy

      Congratulations, Andy, and thanks for sharing the detailed test code and output. I haven't used ddump but that aspect of your post is very helpful and interesting to me.

        Sorry the late reply. :)

        ddump() is just my own silly little Data::Dumper wrapper. While I like and use Ovid's module Data::Dumper::Names frequently, it can't work everywhere.

        # {{{ ddump # sub ddump { my $label = shift; my $line_number = shift; my $ddv = $Data::Dumper::Varname; $Data::Dumper::Varname = "${label}_line_${line_number}_"; print STDERR Dumper(@_); $Data::Dumper::Varname = $ddv; } # }}}

        Definitely nothing special there...

        --
        Andy

Re^4: mod_perl and CGI behavior
by naChoZ (Curate) on Oct 07, 2020 at 15:18 UTC

    Interesting. I wonder what that nph (no parsed header) business ends up doing... I'll have to experiment with that.

    Thanks!

    --
    Andy

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11122383]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2024-05-18 06:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found