You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2011/08/05 18:06:27 UTC
svn commit: r1154284 - in /perl/embperl/trunk: MANIFEST epeval.c epnames.h
test.pl test/cmp/errdoc2.htm test/cmp/error.htm514
test/cmp/includeerr2.htm514 test/cmp/varerr.htm514 test/html/getnosess.htm
test/html/registry/reggetsess.htm
Author: richter
Date: Fri Aug 5 16:06:26 2011
New Revision: 1154284
URL: http://svn.apache.org/viewvc?rev=1154284&view=rev
Log:
Adapt tests to perl 5.14.x
Added:
perl/embperl/trunk/test/cmp/error.htm514
perl/embperl/trunk/test/cmp/includeerr2.htm514
perl/embperl/trunk/test/cmp/varerr.htm514
Modified:
perl/embperl/trunk/MANIFEST
perl/embperl/trunk/epeval.c
perl/embperl/trunk/epnames.h
perl/embperl/trunk/test.pl
perl/embperl/trunk/test/cmp/errdoc2.htm
perl/embperl/trunk/test/html/getnosess.htm
perl/embperl/trunk/test/html/registry/reggetsess.htm
Modified: perl/embperl/trunk/MANIFEST
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/MANIFEST?rev=1154284&r1=1154283&r2=1154284&view=diff
==============================================================================
--- perl/embperl/trunk/MANIFEST (original)
+++ perl/embperl/trunk/MANIFEST Fri Aug 5 16:06:26 2011
@@ -237,6 +237,9 @@ eptypes.h
eputil.c
mod_embperl.c
test.pl
+test/cmp/includeerr2.htm514
+test/cmp/error.htm514
+test/cmp/varerr.htm514
test/cmp/Execute.htm
test/cmp/allform.htm
test/cmp/ascii
Modified: perl/embperl/trunk/epeval.c
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/epeval.c?rev=1154284&r1=1154283&r2=1154284&view=diff
==============================================================================
--- perl/embperl/trunk/epeval.c (original)
+++ perl/embperl/trunk/epeval.c Fri Aug 5 16:06:26 2011
@@ -1222,7 +1222,7 @@ int EvalSub (/*i/o*/ register req * r,
lprintf (r -> pApp, "sv_any=%x\n", gv -> sv_any) ;
SvREFCNT_dec (GvCV (gv)) ;
- GvCV (gv) = (CV *)*ppSV ;
+ GvCV_set (gv,(CV *)*ppSV) ;
SvREFCNT_inc (*ppSV) ;
*/
}
Modified: perl/embperl/trunk/epnames.h
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/epnames.h?rev=1154284&r1=1154283&r2=1154284&view=diff
==============================================================================
--- perl/embperl/trunk/epnames.h (original)
+++ perl/embperl/trunk/epnames.h Fri Aug 5 16:06:26 2011
@@ -498,3 +498,8 @@ typedef void apr_pool_t ;
#endif
#endif
+/* perl 5.13.10+ does not allow assigning to GvCV anymore */
+
+#ifndef GvCV_set
+#define GvCV_set(gv,cv) (GvGP(gv)->gp_cv=(cv))
+#endif
Modified: perl/embperl/trunk/test.pl
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test.pl?rev=1154284&r1=1154283&r2=1154284&view=diff
==============================================================================
--- perl/embperl/trunk/test.pl (original)
+++ perl/embperl/trunk/test.pl Fri Aug 5 16:06:26 2011
@@ -77,7 +77,23 @@
'errors' => 6,
'version' => 2,
'cgi' => 0,
- 'condition' => '$] >= 5.010000',
+ 'condition' => '$] >= 5.010000 && $] < 5.014000',
+ },
+ 'error.htm' => {
+ 'repeat' => 3,
+ 'errors' => 2,
+ 'version' => 2,
+ 'offline' => 1,
+ 'condition' => '$] >= 5.014000',
+ 'cmpext' => '514',
+ },
+ 'error.htm' => {
+ 'repeat' => 3,
+ 'errors' => 1,
+ 'version' => 2,
+ 'modperl' => 1,
+ 'condition' => '$] >= 5.014000',
+ 'cmpext' => '514',
},
'error.htm' => {
'repeat' => 3,
@@ -98,7 +114,15 @@
'errors' => 7,
'version' => 2,
'cgi' => 1,
- 'condition' => '$MP2 && $] >= 5.010000',
+ 'condition' => '$MP2 && $] >= 5.010000 && $] < 5.014000',
+ },
+ 'error.htm' => {
+ 'repeat' => 3,
+ 'errors' => 3,
+ 'version' => 2,
+ 'cgi' => 1,
+ 'condition' => '$MP2 && $] >= 5.014000',
+ 'cmpext' => '514',
},
'errormismatch.htm' => {
'errors' => '1',
@@ -141,7 +165,14 @@
'errors' => 6,
'version' => 2,
'modperl' => 1,
- 'condition' => '$] >= 5.010000',
+ 'condition' => '$] >= 5.010000 && $] < 5.014000',
+ },
+ 'errdoc/errdoc.htm' => {
+ 'option' => '262144',
+ 'errors' => 1,
+ 'version' => 2,
+ 'modperl' => 1,
+ 'condition' => '$] >= 5.014000',
},
'errdoc/epl/errdoc2.htm' => {
'option' => '262144',
@@ -167,7 +198,16 @@
'cgi' => 0,
'noloop' => 1,
'modperl' => 1,
- 'condition' => '$] >= 5.010000',
+ 'condition' => '$] >= 5.010000 && $] < 5.014000',
+ },
+ 'errdoc/epl/errdoc2.htm' => {
+ 'option' => '262144',
+ 'errors' => 1,
+ 'version' => 2,
+ 'cgi' => 0,
+ 'noloop' => 1,
+ 'modperl' => 1,
+ 'condition' => '$] >= 5.014000',
},
'rawinput/rawinput.htm' => {
'option' => '16',
@@ -205,11 +245,18 @@
'varerr.htm' => {
'errors' => 7,
'noloop' => 1,
- 'condition' => '$] >= 5.006000',
+ 'condition' => '$] >= 5.006000 && $] < 5.014000',
'cmpext' => '56',
'version' => 2,
},
'varerr.htm' => {
+ 'errors' => 1,
+ 'noloop' => 1,
+ 'condition' => '$] >= 5.014000',
+ 'cmpext' => '514',
+ 'version' => 2,
+ },
+ 'varerr.htm' => {
'errors' => 2,
'version' => 1,
'cgi' => 0,
@@ -405,7 +452,14 @@
'errors' => 5,
'version' => 2,
'repeat' => 2,
- 'condition' => '$] >= 5.006001',
+ 'condition' => '$] >= 5.006001 && $] < 5.014000',
+ },
+ 'includeerr2.htm' => {
+ 'errors' => 1,
+ 'version' => 2,
+ 'repeat' => 2,
+ 'condition' => '$] >= 5.014000',
+ 'cmpext' => '514',
},
'includeerr3.htm' => {
'errors' => 2,
@@ -1982,6 +2036,7 @@ do
{
if ($opt_offline || $opt_ep1 || $opt_execute || $opt_cache)
{
+ no warnings ;
open (SAVEERR, ">&STDERR") || die "Cannot save stderr" ;
open (STDERR, ">$offlineerr") || die "Cannot redirect stderr" ;
open (ERR, "$offlineerr") || die "Cannot open redirected stderr ($offlineerr)" ; ;
@@ -2284,7 +2339,7 @@ do
}
$txt = 'error.htm' ;
- $org = "$cmppath/$txt" ;
+ $org = "$cmppath/$txt" . ($] >= 5.014000?'514':'') ;
$org = "$cmppath$version/$txt" if (-e "$cmppath$version/$txt") ;
$src = "$inpath/$txt" ;
$src = "$inpath$version/$txt" if (-e "$inpath$version/$txt") ;
@@ -2313,9 +2368,9 @@ do
}) ;
$t_exec += 0 ; # Embperl::Clock () - $t1 ;
- $err = CheckError ($EP2?($] >= 5.010000?6:5):8) if ($err == 0) ;
+ $err = CheckError ($EP2?($] >= 5.010000?($] >= 5.014000?2:6):5):8) if ($err == 0) ;
- if (@errors != ($EP2?4:12))
+ if (@errors != ($EP2?($] >= 5.014000?9:4):12))
{
print "\n\n\@errors does not return correct number of errors (is " . scalar(@errors) . ", should 4)\n" ;
$err = 1 ;
Modified: perl/embperl/trunk/test/cmp/errdoc2.htm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/errdoc2.htm?rev=1154284&r1=1154283&r2=1154284&view=diff
==============================================================================
--- perl/embperl/trunk/test/cmp/errdoc2.htm (original)
+++ perl/embperl/trunk/test/cmp/errdoc2.htm Fri Aug 5 16:06:26 2011
@@ -11,7 +11,7 @@ This page is shown due to an ErrorDocume
main:
^prev: Apache.*?=SCALAR
next:
-^There are 4 errormessages:
+^There are (4|9) errormessages:
<table border=1>
^- <tr><td>\[\d+\]ERR: 32: Warning in Perl code: Unquoted string "qqqqqqqqqqqqqq" may clash with future reserved word
Added: perl/embperl/trunk/test/cmp/error.htm514
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/error.htm514?rev=1154284&view=auto
==============================================================================
--- perl/embperl/trunk/test/cmp/error.htm514 (added)
+++ perl/embperl/trunk/test/cmp/error.htm514 Fri Aug 5 16:06:26 2011
@@ -0,0 +1,57 @@
+<HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD><BODY bgcolor="#FFFFFF">
+<H1>Internal Server Error</H1>
+The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
+^Please contact the server administrator,.*?and inform them of the time the error occurred, and anything you might have done that may have caused the error.<P><P>
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: Unquoted string "qqqqqqqqqqqqqq" may clash with future reserved word at /usr/msrc/embperl/test/html/error.htm line 23.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) syntax error at /usr/msrc/embperl/test/html/error.htm line 23, at EOF
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) syntax error at /usr/msrc/embperl/test/html/error.htm line 32, near "\+ \)"
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: Bareword found where operator expected at /usr/msrc/embperl/test/html/error.htm line 46, near "\$error is"
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(Missing operator before is\?\)
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) syntax error at /usr/msrc/embperl/test/html/error.htm line 46, near "\$error is here "
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) syntax error at /usr/msrc/embperl/test/html/error.htm line 59, near ";
+<br>
+<br> }"
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) Missing right curly or square bracket at /usr/msrc/embperl/test/html/error.htm line 60, at end of line
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 24: Error in Perl code: Compilation error
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+^Embperl
+</BODY></HTML>
+
Added: perl/embperl/trunk/test/cmp/includeerr2.htm514
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/includeerr2.htm514?rev=1154284&view=auto
==============================================================================
--- perl/embperl/trunk/test/cmp/includeerr2.htm514 (added)
+++ perl/embperl/trunk/test/cmp/includeerr2.htm514 Fri Aug 5 16:06:26 2011
@@ -0,0 +1,60 @@
+<HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD><BODY bgcolor="#FFFFFF">
+<H1>Internal Server Error</H1>
+The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
+^Please contact the server administrator,.*?and inform them of the time the error occurred, and anything you might have done that may have caused the error.<P><P>
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: Use of uninitialized value \$Embperl::__\d+::param\[0\] in concatenation \(\.\) or string at /usr/msrc/embperl/test/html/incsub.htm line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: Use of uninitialized value \$Embperl::__\d+::param\[0\] in concatenation \(\.\) or string at /usr/msrc/embperl/test/html/incsub.htm line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: Use of uninitialized value \$Embperl::__\d+::param\[0\] in concatenation \(\.\) or string at /usr/msrc/embperl/test/html/incsub.htm line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: Use of uninitialized value \$Embperl::__\d+::param\[0\] in concatenation \(\.\) or string at /usr/msrc/embperl/test/html/incsub.htm line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 24: Error in Perl code: Can't locate object method "is" via package "here" \(perhaps you forgot to load "here"\?\) at /usr/msrc/embperl/test/html/incerr.htm line 6.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+^^<tr bgcolor='#eeeeee'><td>
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) syntax error at /usr/msrc/embperl/test/html/incerr.htm line 4, near "\+\]"
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^</td></tr>
+^^<tr bgcolor='#eeeeee'><td>
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^\[\d+\]ERR: 32: Warning in Perl code: Unquoted string "table" may clash with future reserved word at /usr/msrc/embperl/test/html/incerr.htm line 6.
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^</td></tr>
+^^<tr bgcolor='#eeeeee'><td>
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^\[\d+\]ERR: 32: Warning in Perl code: Unquoted string "td" may clash with future reserved word at /usr/msrc/embperl/test/html/incerr.htm line 8.
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^</td></tr>
+^^<tr bgcolor='#eeeeee'><td>
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^\[\d+\]ERR: 32: Warning in Perl code: Having no space between pattern and following word is deprecated at /usr/msrc/embperl/test/html/incerr.htm line 11.
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^</td></tr>
+^^<tr bgcolor='#eeeeee'><td>
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) Transliteration replacement not terminated at /usr/msrc/embperl/test/html/incerr.htm line 12.
+^^<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^^</td></tr>
+</table>
+<br>
+^Embperl
+</BODY></HTML>
+
Added: perl/embperl/trunk/test/cmp/varerr.htm514
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/cmp/varerr.htm514?rev=1154284&view=auto
==============================================================================
--- perl/embperl/trunk/test/cmp/varerr.htm514 (added)
+++ perl/embperl/trunk/test/cmp/varerr.htm514 Fri Aug 5 16:06:26 2011
@@ -0,0 +1,50 @@
+<HTML><HEAD><TITLE>Embperl Error</TITLE></HEAD><BODY bgcolor="#FFFFFF">
+<H1>Internal Server Error</H1>
+The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
+^Please contact the server administrator,.*?and inform them of the time the error occurred, and anything you might have done that may have caused the error.<P><P>
+<table cellspacing='2' cellpadding='5'>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) Global symbol "\$d" requires explicit package name at /usr/msrc/embperl/test/html/varerr.htm line 19.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) Global symbol "\$e" requires explicit package name at /usr/msrc/embperl/test/html/varerr.htm line 20.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) Global symbol "\$e" requires explicit package name at /usr/msrc/embperl/test/html/varerr.htm line 43.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) Global symbol "\$d" requires explicit package name at /usr/msrc/embperl/test/html/varerr.htm line 43.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) Global symbol "\$e" requires explicit package name at /usr/msrc/embperl/test/html/varerr.htm line 43.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) Global symbol "\$d" requires explicit package name at /usr/msrc/embperl/test/html/varerr.htm line 50.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 32: Warning in Perl code: \(in cleanup\) Global symbol "\$e" requires explicit package name at /usr/msrc/embperl/test/html/varerr.htm line 51.
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+<tr bgcolor='#eeeeee'><td>
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+^\[\d+\]ERR: 24: Error in Perl code: Compilation error
+<!-- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
+</td></tr>
+</table>
+<br>
+^Embperl
+</BODY></HTML>
+
Modified: perl/embperl/trunk/test/html/getnosess.htm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/getnosess.htm?rev=1154284&r1=1154283&r2=1154284&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/getnosess.htm (original)
+++ perl/embperl/trunk/test/html/getnosess.htm Fri Aug 5 16:06:26 2011
@@ -3,7 +3,6 @@
<title>Tests for Embperl - Set Session Data</title>
</head>
-
<body>
Modified: perl/embperl/trunk/test/html/registry/reggetsess.htm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/registry/reggetsess.htm?rev=1154284&r1=1154283&r2=1154284&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/registry/reggetsess.htm (original)
+++ perl/embperl/trunk/test/html/registry/reggetsess.htm Fri Aug 5 16:06:26 2011
@@ -9,6 +9,7 @@ my($r) = @_;
$Embperl::DebugDefault = 811005 ;
+eval "use Apache2::compat" ;
$r -> status (200) ;
$r -> send_http_header () ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org