Re: CGI::Carp in Apache::Registry

[Anonymous Monk]

in reply to CGI::Carp in Apache::Registry

You can't, it is not designed for that

sub set_progname {
    $CGI::Carp::PROGNAME = shift;
    return $CGI::Carp::PROGNAME;
}

You can probably use

BEGIN { set_progname( 'script_1.cgi' ); }
END { set_progname( undef ); }
Main( @ARGV );

[bbfan]

Hey, thanks for the suggestion. Sounded good, so gave it a try - had the same result as before. Went to see "when" an END block would get executed in Apache::Registry, and it's just what you might suspect - when the script or interpreter exits - which is why am seeing the same result.

http://perl.apache.org/docs/2.0/api/ModPerl/Registry.html#C_END__Blocks

[Anonymous Monk]

What is wrong with the default, caller...?

In that case, copy/paste Carp.pm and fix it to your liking :) say it sets/checks  ${(caller)[0].'::PROGNAME'} instead, which ought to work under registry

[bbfan]

In thinking about this, am confused why it "seems to" work fine when not using the precompilation. If it is not designed for that, then how come it works? Am still fuzzy on much of the language. Thanks!

[Anonymous Monk]

In thinking about this, am confused why it "seems to" work fine when not using the precompilation.

What do you mean by that? do you mean when it is run through mod_cgi?

[bbfan]

What do you mean by that? do you mean when it is run through mod_cgi?

Am not "intentionally" using mod_cgi, so don't know enough to address that part. What I meant by it seeming to work is that when the CGI::Carp qw(name=scriptX) lines are in each registry script, they *were* logging the appropriate script name *until* I introduced precompilation. Please see my initial post for clarification. Thanks!