> ydnar wrote: > > Thanks for your reply. > > > > Here's a short module that will throw the warning. > > Thanks. > > > Note, my httpd.conf uses PerlSwitches -wT. Removing -w and using "use > > warnings FATAL => 'all';" does *not* reproduce the problem. > > That's obvious.
Obvious to whom? > > package SHN::Exit; > > use strict; > > use ModPerl::Util; > > use Apache::RequestRec; > > use Apache::RequestIO; > > sub handler > > { > > my $r = shift; > > $r->content_type( "text/plain" ); > > print "End of line.\n"; > > exit 0; > > } > > 1; > > Does it make any difference if you do: > > - exit 0; > + ModPerl::Util::exit(); > + return Apache::OK; Isn't the point of exit() to stop execution of the particular thread of code? The exit test handler has code below the call to ModPerl::Util::exit() commented "not reached." I assume this means that exit() works as-advertised. > may I ask, why do you call exit? There are a few places internally where processing can fail. Certain functions return user-friendly error messages to the browser and exit() instead of returning to the calling script/module. > Also you didn't answer my 2 questions below. Your first question was answered in my initial email. It occurs with 5.8.1. It also occurs with 5.8.0 and mod_perl 1.99.09 as well, if you care. It does not occur when running the t/TEST script. I was not able to modify t/response/TestModperl/exit.pm to reproduce either. Hence the example handler as you requested. > [...] > >>>Useless warning in error_log: > >>> > >>> [Mon Sep 29 16:43:15 2003] -e: Use of uninitialized value. > >>> > >>>This occurs whenever a handler script calls ModPerl::Util::exit() > >>>or simply exit(). There is no other available information. > >>> > >>>Running Perl 5.8.0 and mod_perl 1.99.10, both fresh rebuilds from > >>>source today. > >> > >>According to your report you are running 5.8.1: > >> > >> > *** /usr/bin/perl -V > >> > Summary of my perl5 (revision 5.0 version 8 subversion 1) > > So which one do you have the problem with 5.8.0 or 5.8.1? > > > configuration: > > > >>I tested it with 5.8.0 and 5.8.1, but I can't get to reproduce it. > >> > >>Do you get this problem if you run this test: > >> > >>cd modperl-1.99-dev > >>t/TEST -v modperl/exit > >> > >>run: > >> > >>tail -F t/logs/error_log > >> > >>in another console and see if you get this warnings. If not, please post a > >>very short handler which we can reproduce the problem with (ideally adjust > >>t/response/TestModperl/exit.pm to reproduce it). > > And? > > __________________________________________________________________ > Stas Bekman JAm_pH ------> Just Another mod_perl Hacker > http://stason.org/ mod_perl Guide ---> http://perl.apache.org > mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com > http://modperlbook.org http://apache.org http://ticketmaster.com > --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]