warning? The 'package' key should normally exist with a defined value.
many thanks!
On Mon, Jan 18, 2016 at 10:25 AM, wrote:
Hi,
I see the following when calling $self->meta->add_attribute in my code
under perl 5.10.1:
Use of uninitialized value in string eq at
.../perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Meta/Attribute.pm
line 1035.
I think the following code segment:
if (
$method
&& !$method->is_stub
&& !$method->isa('Class::MOP::Method::Accessor')
&& ( !$self->definition_context
) {
should look like:
if (
$method
&& !$method->is_stub
&& !$method->isa('Class::MOP::Method::Accessor')
&& ( !$self->definition_context
eq $self->definition_context->{package} )
) {
--
Yuri
Hi,
I see the following when calling $self->meta->add_attribute in my code
under perl 5.10.1:
Use of uninitialized value in string eq at
.../perl-5.10.1/lib/site_perl/5.10.1/x86_64-linux/Moose/Meta/Attribute.pm
line 1035.
I think the following code segment:
if (
$method
&& !$method->is_stub
&& !$method->isa('Class::MOP::Method::Accessor')
&& ( !$self->definition_context
$method->package_name eq $self->definition_context->{package} )
should look like:
if (
$method
&& !$method->is_stub
&& !$method->isa('Class::MOP::Method::Accessor')
&& ( !$self->definition_context
exists(self->definition_context->{package}) && $method->package_name
) {
--
Yuri
