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)
