Thanks for the notice. I've committed a fix.
--
Rocco Caputo - [EMAIL PROTECTED]
On Feb 11, 2007, at 16:40, Ton Hospel wrote:
In article <[EMAIL PROTECTED]>,
[EMAIL PROTECTED] (Ton Hospel) writes:
A few correction to the previous mail:
using POE loses $^W
Demonstration:
perl -wle 'BEGIN { print $^W }; use POE; BEGIN { print $^W}'
1
0
It's caused by the BEGIN { $^W = 0; } just before the
eval "sub $const () { $value }";
I forgot to mention that this code is in POE/Kernel.pm, not in POE.pm
(on my version of POE. The latest seems to use $const = sub ()
{ $value };
instead).
and here a * dropped out: *$const = sub () { $value };
It looks like it's just an attempt to silence a redefined warning.
I think the BEGIN { $^W = 0; } should simply be local $^W = 0
(untested)
