CGI.pmでのmod_perlの判定とか前々から気になっていたので ソースコード見てみました。「new」したときの判定は以下 if ($MOD_PERL) { if ($MOD_PERL == 1) { $self->r(Apache->request) unless $self->r; my $r = $self->r; $r->register_cleanup(\&CGI::_r…