perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From rich...@ecos.de
Subject RE: Test registry/Execute.htm fails with mod_perl 2.0.5
Date Wed, 08 Jun 2011 19:08:37 GMT
Hi,

sorry for not getting back sooner...

I spent some time debugging this issue, but I don't have a solution so far.

The problem is, that mod_perl was using tied filehandles for STDOUT/IN before, but now it
uses the Perl IO Layer.

The problem is in epio.c around line 716. There Embperl tries to get the handle or tied object
for stdout. Mod_perl's stdout is neither since 2.0.5 and I didn't found a way how to get it
in the C code so far...

I will continue looking at it, but I have limited time, so it might take some time, but it
only affects Embperl as far as you use it inside of Registry scripts, all other usages should
continue to work fine.


Gerald



> -----Original Message-----
> From: Dominic Hargreaves [mailto:dom@earth.li]
> Sent: Thursday, May 12, 2011 12:55 AM
> To: embperl@perl.apache.org
> Subject: Test registry/Execute.htm fails with mod_perl 2.0.5
> 
> 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><t
> d>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



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


Mime
View raw message