dougm 2002/06/20 17:05:49
Modified: lib/ModPerl Code.pm
src/modules/perl mod_perl.h
Log:
integrate modperl_sys modules
Revision Changes Path
1.83 +6 -1 modperl-2.0/lib/ModPerl/Code.pm
Index: Code.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -r1.82 -r1.83
--- Code.pm 16 Jun 2002 01:09:46 -0000 1.82
+++ Code.pm 21 Jun 2002 00:05:49 -0000 1.83
@@ -2,6 +2,7 @@
use strict;
use warnings FATAL => 'all';
+use Config;
use mod_perl ();
use Apache::Build ();
@@ -346,6 +347,10 @@
my $n = 1;
+ (my $dlsrc = uc $Config{dlsrc}) =~ s/\.xs$//i;
+
+ print $h_fh "\n#define MP_SYS_$dlsrc 1\n";
+
while (my($class, $opts) = each %{ $self->{flags} }) {
my $i = 0;
my @lookup = ();
@@ -563,7 +568,7 @@
my @c_src_names = qw(interp tipool log config cmd options callback handler
gtop util io filter bucket mgv pcw global env cgi
- perl perl_global perl_pp);
+ perl perl_global perl_pp sys);
my @g_c_names = map { "modperl_$_" } qw(hooks directives flags xsinit);
my @c_names = ('mod_perl', (map "modperl_$_", @c_src_names));
sub c_files { [map { "$_.c" } @c_names, @g_c_names] }
1.48 +1 -0 modperl-2.0/src/modules/perl/mod_perl.h
Index: mod_perl.h
===================================================================
RCS file: /home/cvs/modperl-2.0/src/modules/perl/mod_perl.h,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- mod_perl.h 19 Jun 2002 05:18:04 -0000 1.47
+++ mod_perl.h 21 Jun 2002 00:05:49 -0000 1.48
@@ -18,6 +18,7 @@
#include "modperl_hooks.h"
#include "modperl_perl_global.h"
#include "modperl_perl_pp.h"
+#include "modperl_sys.h"
/* both perl and apr have largefile support enabled */
#define MP_LARGE_FILES_ENABLED \
