perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Dominic Hargreaves <...@earth.li>
Subject Test registry/Execute.htm fails with mod_perl 2.0.5
Date Wed, 11 May 2011 22:54:56 GMT
As per the README I'm reporting this bug here, rather than on
rt.cpan.org (where I note a few other bug reports have been sent).

As reported at
<http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=624578> this test fails when run with
mod_perl 2.0.5.

We have applied some patches at Debian (you can see them at
<http://svn.debian.org/wsvn/pkg-perl/trunk/libembperl-perl/debian/patches/#_trunk_libembperl-perl_debian_patches_>
) but I've reproduced the same problem with a plain unpatched Embperl
2.4.0.

It is triggered by
<http://svn.apache.org/viewvc?view=revision&revision=932875>

but we haven't got any further than that yet. I'd be grateful for
any input if this looks familiar to anyway.

Test output follows:

#112 registry/Execute.htm...  <P>Here is some text</P>
<table><tr><td>a1</td> <td>b2</td> <td>c3</td>
</tr> </table> </P>
<P>Transfer some vars Some Var !</P>
<P>Transfer some vars Do it again !</P>
<P>Use @param to transfer some data (1 2 3 4) !</P><P>Got data in @param
(vara varb) !</P><P>Change data in @param to (newA newB) !</P><P><table><tr><td>fdat</td><td>text</td></tr><tr><td>test</td><td>value</td></tr></table></P>
Here it starts with some HTML Text<P>

All values should be undefined at the first include and
apear at the second include:
<P>

$a =  <BR>
$b =  <BR>
$c =  <BR>
$d =  <BR>
$e =  <BR>


First of all assign a value:
<BR>

Now we have some 'Umlaute':


Now lets look what we are getting from this:<BR>
(this is the value in $a) (this is the value in $a) &auml;&ouml;&uuml;<BR>

And now a and b together: (this is the value in $a)(this is the value in $a) &auml;&ouml;&uuml;<P>

Here we have some HTML tags within the perl code, Embperl will delete them!<BR>

57
SELECT *  FROM a ORDER BY b USING &lt;; Hi There&gt;
Here we have something which looks like a HTML tag, but does not start with<br>
a character, Embperl does not change them!<BR>

SELECT * FROM a ORDER BY b USING &lt;; Hi There&gt;
Embperl will also translate HMTL escapes to the right characters i.e. $a &amp;lt; 6 will
get the perl expression $a &lt; 6: <BR>

1
Now they should have a value

$a = (this is the value in $a) <BR>
$b = (this is the value in $a) &auml;&ouml;&uuml; <BR>
$c = 57 <BR>
$d = 1 <BR>
$e = 2 <BR>

<P>Ok.<P>


<html>
<head>
<title>Test for $req_rec in Embperl</title>
</head>

$conf = &lt;undef&gt; <br> 
$_[0] = Embperl::Req=HASH(0x42625144) <br> 
$_[1] = &lt;undef&gt; <br> 

$rec_rec  = Apache2::RequestRec=SCALAR(0x42625158)<br>
$$rec_rec = 1107886848<br>

Apache->request    = Apache2::RequestRec=SCALAR(0x4262c194)<br>
${Apache->request} = 1107886848<br>

${Apache->request} = $$req_rec ?  yes <br>

/home/dom/debian/upstream/libembperl-perl/Embperl-2.4.0/test/html/registry/Execute.htm
</body>
</html>

Error in Line 4
Is:     ><H1>2.)IncludefrommemorywithsomeEmbperlcode</H1><
Should: ><P>Hereissometext</P><
Input:          test/html/registry/Execute.htm
Output:         test/tmp/out.htm
Compared to:    test/cmp/Execute.htm
Log:            test/tmp/test.log
Testparameter:
  modperl = 1

 ERRORS detected! NOT all tests have been passed successfully

make: *** [test_dynamic] Terminated
Terminated

Cheers,
Dominic.

-- 
Dominic Hargreaves | http://www.larted.org.uk/~dom/
PGP key 5178E2A5 from the.earth.li (keyserver,web,email)

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message