¿Cómo puede saber mi programa Perl si se está ejecutando en MOD_PERL?

Question

¿Cómo puede saber mi programa PERL si se está ejecutando en MOD_PERL?

Estoy pensando en la línea de variables globales o variables de entorno.

Solo me molesta en MOD_PERL>= 2.

Answer 1

http://perl.apache.org/docs/2.0 / usuario / codificación / codificación.html # entierro_variables dice que habrá un entorno variable MOD_PERL, por lo que podría probarlo con la expresión

exists $ENV{MOD_PERL}

Answer 2

de acuerdo con "Variables de entorno" en la Guía del usuario de MOD_PERL :

$ENV{MOD_PERL}: se establece en la versión mod_perl, el servidor se está ejecutando debajo.E.G.:

  mod_perl/2.000002

Si no existe $ENV{MOD_PERL}, lo más probable es que no esté ejecutando debajo de MOD_PERL.

  die "I refuse to work without mod_perl!" unless exists $ENV{MOD_PERL};

(vea el enlace anterior para obtener más información).