Re: i want to "die", but mod_perl won't let me

[Juan Jose Natera]

Hi,

On 2/21/07, Jonathan Vanasco <[EMAIL PROTECTED]> wrote:

startup.pl has this:

        use MyConfig::ServerLayout;

and then:

        package MyConfig::ServerLayout;

        my      $_environment= $ENV{'SERVER_TYPE'};
        if ( !defined $_environment ) {
                die "ERROR! You MUST define SERVER_TYPE in \$ENV !";
        }

It's not pretty, and there is probably a better way, but:

if ( !defined $_environment ) {
         # this will end up in your error log
         print STDERR "ERROR! You MUST define SERVER_TYPE in \$ENV !";
         # and this makes MyConfig::ServerLayout return false
         return 0;
}

Juan