perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Gunnar Wolf <gw...@gwolf.org>
Subject $escmode behaving inconsistently?
Date Tue, 27 Mar 2007 17:52:02 GMT
Hi,

I want to completely turn off escaping in my application (written in
EMBPERL_OBJECT_APP mode). I have configured it in the Apache
configuration - I tried both with PerlSetEnv EMBPERL_ESCMODE 0 and
with EMBPERL_INPUT_ESCMODE 0. In both cases, it works correctly the
first time I call the system, but for subsequent calls, it returns me
the escaped entities instead (switching $escmode to 7). Even having
this in place, I tried adding a «$escmode=0» to the very top of my
_base.epl... To no avail. I also added the same declaration at the
very beginning of base.pm's init function. 

I added this as the first line in _base.epl:

[- warn "Starting with: $escmode"; $escmode = 0 -]

And as the last line:

[- warn "Exiting with : $escmode " -]

After restarting Apache and calling my application a couple of times,
I get this in the logs:

[Tue Mar 27 11:51:55 2007] [warn] [19480]ERR:  32:  Warning in Perl code: Starting with: 0
at /home/gwolf/cvs/comas/trunk/embperl/_base.epl line 2.
[Tue Mar 27 11:51:55 2007] [warn] [19480]ERR:  32:  Warning in Perl code: Exiting with : 0
 at /home/gwolf/cvs/comas/trunk/embperl/_base.epl line 39.
[Tue Mar 27 11:51:58 2007] [warn] [19480]ERR:  32:  Warning in Perl code: Starting with: 7
at /home/gwolf/cvs/comas/trunk/embperl/_base.epl line 2.
[Tue Mar 27 11:51:58 2007] [warn] [19480]ERR:  32:  Warning in Perl code: Exiting with : 0
 at /home/gwolf/cvs/comas/trunk/embperl/_base.epl line 39.
[Tue Mar 27 11:52:13 2007] [warn] [19480]ERR:  32:  Warning in Perl code: Starting with: 7
at /home/gwolf/cvs/comas/trunk/embperl/_base.epl line 2.
[Tue Mar 27 11:52:13 2007] [warn] [19480]ERR:  32:  Warning in Perl code: Exiting with : 0
 at /home/gwolf/cvs/comas/trunk/embperl/_base.epl line 39.

Now, even with $escmode as 0 during the whole page generation, the
page still displays with everything escaped.

Of course, I thought I was somehow meddling with escmode. But I swear,
I'm not touching it:

gwolf@mosca:~/cvs/comas/trunk$ grep -ri escmode .
./embperl/_base.epl:[- warn "Starting with: $escmode"; $escmode = 0 -]
./embperl/_base.epl:[- warn "Exiting with : $escmode " -]

Any pointers on what might I be doing wrong?

Thanks,

-- 
Gunnar Wolf - gwolf@gwolf.org - (+52-55)5623-0154 / 1451-2244
PGP key 1024D/8BB527AF 2001-10-23
Fingerprint: 0C79 D2D1 2C4E 9CE4 5973  F800 D80E F35A 8BB5 27AF

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


Mime
View raw message