Hi, could you tell me which version of perl do you use?
I will take a look at the issue, but not before next week. 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
