The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

JBAKER / mod_perl-1.15-bin-bindist1-i386-win32-vc5 / perl / lib / site / Apache / PerlRunXS.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
—
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

              
package Apache::PerlRunXS;
use strict;
use vars qw($Debug $VERSION @ISA);
use Apache::Constants qw(:common);
unless (defined $Apache::Registry::NameWithVirtualHost) {
    $Apache::Registry::NameWithVirtualHost = 1;
}
$Debug ||= 0;
my $Is_Win32 = $^O eq "MSWin32";
$VERSION = '0.03';
#@ISA = qw(DynaLoader);
if($ENV{MOD_PERL}) {
    bootstrap Apache::PerlRunXS $VERSION;
}
sub new {
    my($class, $r) = @_;
    return $r unless ref($r) eq "Apache";
    if(ref $r) {
        $r->request($r);
    }
    else {
        $r = Apache->request;
    }
    my $filename = $r->filename;
    $r->log_error("Apache::PerlRunXS->new for $filename in process $$")
        if $Debug && $Debug & 4;
    bless $r, $class;
}
1;
__END__
=head1 NAME
Apache::PerlRunXS - XS implementation of Apache::PerlRun/Apache::Registry
=head1 SYNOPSIS
 #in httpd.conf
 Alias /perl/ /perl/apache/scripts/ 
 PerlModule Apache::PerlRunXS
 <Location /perl>
 SetHandler perl-script
 PerlHandler Apache::RegistryXS
 Options +ExecCGI 
 #optional
 PerlSendHeader On
 ...
 </Location>
=head1 DESCRIPTION
This XS implementation of Apache::PerlRun and Apache::Registry will some day
replace the Perl versions.
=head1 SEE ALSO
perl(1), mod_perl(3), Apache::Registry(3)
=head1 AUTHOR
Doug MacEachern