On Dec 22, 2007, at 4:47 PM, Perrin Harkins wrote:
By the way, if you just call print() normally it should all be grabbed
by mod_perl anyway.  Is there some reason you need to call $r->print()
instead?

I thought it only does that if you bind STDOUT the right way on compile time, otherwise it just gets lost in the ether

If you're using a $r you stash somewhere, make sure you undef it on a cleanup - just to be safe

also, instead of
        $mnh::r->print( $package_response );

you could do something like...

        mnh::r::printer( $package_response );

where

package mnh::r;

our $r;
function printer {
        if ( !defined $r ) {
                $r= #get $r;
                $r->print( $_[0] )
        }
}

for the performance hit, you can now swap how you print without find&replace again

Reply via email to