Hi,
I've run into into a very peculiar problem using HTML::Embperl 1.2.0
with
apache 1.3.6 and mod_perl 1.21.
I'm using a tied file handle in an embperl page :
<html>
<head>
<title>Test</title>
</head>
<body>
[-
use GnuPG::Tie::Encrypt;
tie *GNUPG, 'GnuPG::Tie::Encrypt', gnupg_path => '/usr/bin/gpg',
armor => 1, recipient => 'Francis'
or die "Error tying variable\n";
print GNUPG "Hello world\n";
local $/ = undef;
$text = <GNUPG>;
close GNUPG;
untie *GNUPG;
-]
<pre>[+ $text +]</pre>
</body>
</html>
The line $text = <GNUPG> is somehow a noop. The call to the
underlying READLINE implementation is never made. (I know I have
a print STDERR at the beginning of the method.)
The same thing happen if I use the line
$text = readline GNUPG;
But if I use :
$text = (tied *GNUPG)->READLINE;
it works fine.
If I modify the previous snippets to run as a plain mod_perl handler,
everythings
works as expected.
Any ideas what may be causing the problem ?
Thanks for your insights.
--
Francis J. Lacoste iNsu Innovations Inc.
Vice-Président développement Tél.: (514) 336-5544
[EMAIL PROTECTED] Fax.: (514) 336-8128
