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:d...@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) äöü<BR> > > And now a and b together: (this is the value in $a)(this is the value in $a) > äöü<P> > > Here we have some HTML tags within the perl code, Embperl will delete > them!<BR> > > 57 > SELECT * FROM a ORDER BY b USING <; Hi There> 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 <; Hi There> Embperl will also > translate HMTL escapes to the right characters i.e. $a &lt; 6 will get the > perl expression $a < 6: <BR> > > 1 > Now they should have a value > > $a = (this is the value in $a) <BR> > $b = (this is the value in $a) äöü <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 = <undef> <br> > $_[0] = Embperl::Req=HASH(0x42625144) <br> $_[1] = <undef> <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-unsubscr...@perl.apache.org > For additional commands, e-mail: embperl-h...@perl.apache.org --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-h...@perl.apache.org
