richter at apache
Jul 25, 2005, 12:01 AM
Post #1 of 1
(817 views)
Permalink
|
|
cvs commit: embperl/test/conf httpd.conf.src startup.pl
|
|
richter 2005/07/25 00:01:36
Modified: . Embperl.pm
test/conf httpd.conf.src startup.pl
Log:
preload test
Revision Changes Path
1.202 +2 -2 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.201
retrieving revision 1.202
diff -u -r1.201 -r1.202
--- Embperl.pm 25 Jul 2005 05:56:15 -0000 1.201
+++ Embperl.pm 25 Jul 2005 07:01:36 -0000 1.202
@@ -49,7 +49,7 @@
@ISA = qw(Exporter DynaLoader);
-$VERSION = '2.0rc4' ;
+$VERSION = '2.0rc5' ;
if ($modperl = $ENV{MOD_PERL})
1.58 +2 -1 embperl/test/conf/httpd.conf.src
Index: httpd.conf.src
===================================================================
RCS file: /home/cvs/embperl/test/conf/httpd.conf.src,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -r1.57 -r1.58
--- httpd.conf.src 28 Feb 2005 06:31:00 -0000 1.57
+++ httpd.conf.src 25 Jul 2005 07:01:36 -0000 1.58
@@ -58,6 +58,7 @@
print OFH "LoadModule embperl_module \"$EPPATH/blib/arch/auto/Embperl/Embperl.so\"\n" if ($MP2) ;
##print OFH "PassEnv ACTION_PREFIX\n" ;
+print OFH "PerlPassEnv TEST_PRELOAD\n" ;
print OFH <<EOD ;
1.24 +6 -1 embperl/test/conf/startup.pl
Index: startup.pl
===================================================================
RCS file: /home/cvs/embperl/test/conf/startup.pl,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -r1.23 -r1.24
--- startup.pl 25 Jul 2005 05:56:15 -0000 1.23
+++ startup.pl 25 Jul 2005 07:01:36 -0000 1.24
@@ -57,7 +57,12 @@
$testshare = "Shared Data" ;
$cp -> share ('$testshare') ;
-Embperl::Execute ({ inputfile => "$cwd/test/html/div.htm", import => 0, input_escmode => 7, req_rec => undef }) ;
+if ($ENV{TEST_PRELOAD})
+ {
+ Embperl::Init () if (!$mp2) ;
+ Embperl::Execute ({ inputfile => "$cwd/test/html/div.htm", import => 0, input_escmode => 7, req_rec => undef }) ;
+ print "Preload ... ok\n" ;
+ }
1 ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe [at] perl
For additional commands, e-mail: embperl-cvs-help [at] perl
|
