Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: softfail (athena.apache.org: transitioning domain of
 adam.prime@utoronto.ca does not designate 216.220.44.220 as permitted sender)
Message-ID: <4994715B.4010603@utoronto.ca>
Date: Thu, 12 Feb 2009 13:58:35 -0500
From: Adam Prime <adam.prime@utoronto.ca>
User-Agent: Thunderbird 2.0.0.19 (X11/20090105)
MIME-Version: 1.0
To: erik@q32.com
CC: modperl@perl.apache.org
Subject: Re: WELCOME to modperl@perl.apache.org
References: <1234451326.8429.ezmlm@perl.apache.org>
	 <ccd588d90902120733s41a8c817ic2b0ffc26a4425c8@mail.gmail.com>
	 <49944A35.7020907@plusthree.com>
 <ccd588d90902120953q5681c5d4o29836b10310932dc@mail.gmail.com>
In-Reply-To: <ccd588d90902120953q5681c5d4o29836b10310932dc@mail.gmail.com>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

Erik Aronesty wrote:
>> Maybe ModPerl::Registry should do this, but not mod_perl itself. If someone
> 
> Yes, it's a problem with ModPerl::Registry, I agree.  It's not mentioned here:
> 
> http://perl.apache.org/docs/2.0/api/ModPerl/Registry.html#Caveats
> 
> Where it should be.

Absolutely, i'll patch the docs to add a link to the perl reference page 
over the weekend.

>> is trying to get an old CGI script to work under mod_perl then they'd use
>> Registry. But there's no reason to make the rest of us suffer for their old
>> scripts.
> 
> # This isn't an "old" program...it's a simple program,
> # and no amount of "strict or warnings" will help debug it
> 
>  use CGI;
>  my $x =CGI::param('foo');
> 
>  &y;
> 
>  sub y {
>        print "content-type:text/plain\n\n?$x\n";
>  }

If you add use strict and use warnings to that script, you get this in 
your error_log:

Variable "$x" will not stay shared at /usr/local/prefork/perl/thing.cgi 
line 10.

which, with a quick googling of 'mod_perl variable will not stay 
shared', turns you to a number of resources talking about the problem, 
and it's solutions.

And for what it's worth, it seems that running under ModPerl::PerlRun 
makes it work alright, albeit with 2 warnings in the error_log:

Variable "$x" will not stay shared at /usr/local/prefork/perl/haha.cgi 
line 10.
Subroutine y redefined at /usr/local/prefork/perl/haha.cgi line 9.

Adam