The following script doesn't seem to work as expected:
------------------cut-----------------
[-
$optRedirectStdout = 1;
-]
Hello1<BR>
[-
print "Hello2";
-]
------------------cut-----------------
I only get "Hello1".
This happens on Embperl 1.3b5 and Embperl 1.3b6, in combination with
$escmode = 0, optRawInput = 1, optDisableFormData = 1.
Same thing happens without these options.
I know I can use "print OUT ..." but I'd rather not.
For now, I had to do this:
[-
tie *STDOUT, 'IO::Scalar', \$s;
SomeModule::lotsaPrints();
-]
[+ $s +]
ilia.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
