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;
}

[download]

You can probably use 

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

[download]

Replies are listed 'Best First'.
Re^2: CGI::Carp in Apache::Registry
by bbfan (Novice) on Jan 24, 2012 at 23:20 UTC
    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

[reply]

      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

[reply]
[d/l]
Re^2: CGI::Carp in Apache::Registry
by bbfan (Novice) on Jan 25, 2012 at 00:17 UTC
    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!
[reply]

      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?

[reply]
        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!

[reply]

In Section Seekers of Perl Wisdom