Re: Registry and CGI::Carp

There's no question or anything resembling a request in your email.  So my 
response may waste a lot of time.

Is this your original post?
   http://www.perlmonks.org/?node_id=949773

If so, I might be able to help.

Admittedly, I can't follow the thread.  The PerlMonds responder refers to 
a function set_progname().  But I can't figure out what that refers to.

However, in the third exchange, you referenced a problem I have some 
experience with:  Apache::Registry executes the BEGIN{} block once, and 
the END{} block repeatedly.  Fundamentally, the Perl specification expects 
them to be balanced, and I'm still amazed at this shortcoming.  I wrote a 
workaround that might get you over your hurdle.  Please check out 
Apache::ChildExit.

I'm amazed that my solution wasn't generally adopted.  As you note, it 
seems like this would be a pretty common scenario.  Give it a try, and 
please let me know whether this solution gives you any traction.

Cheers!

  -Jim



On Fri, 27 Jan 2012, Brett Lee wrote:

> Hi Folks,
> 
> Running several scripts under ModPerl::Registry that use CGI::Carp.  Am
> seeing problems with the logging.  The message that is logged is correct,
> however the name of the script that generated the event is not.
> 
> Each script contains a line similar to:
> 
> use CGI::Carp qw(name=my_script_X);
> 
> When the scripts are precompiled in startup.pl, the *same* script name is
> logged for each and every script.  When scripts are not precompiled the name
> is frequently correct, but it is not correct all of the time.
> 
> A post earlier to Perl Monks came back with the suggestion to extend
> CGI::Carp.pm to support running under Registry.  As what I am trying to do
> seems like it would be a pretty common scenario, am thinking there may be
> another option.
> 
> Thanks for considering this one.
> Brett
> 
>