No $self in sub() with lazy => 1 and mod_perl with Apache MPM worker

[coudot]

We have a strange bug in LemonLDAP::NG: https://jira.ow2.org/browse/LEMONLDAP-723

It seems that Mouse, with Perl v5.10.1, running inside Apache mod_perl with the MPM worker cannot run this kind of code:

has 'registerUrl' => (
    is      => 'rw',
    isa     => 'Str',
    default => sub {
        my $self = shift;
        return $self->portal . "register.pl";
    },
    lazy          => 1,
    documentation => 'URL of register page',
);

The error we see in Apache is:

[Tue Jul 15 14:12:17 2014] [error] Exception caught: Can't call method "portal" on an undefined value at /usr/share/perl5/vendor_perl/Lemonldap/NG/Common/Conf/Attributes.pm line 951.\n

I tried to use Mouse 2.3.0, but same error.

I can't reprodure with a more recent version of Perl (v5.18.2), or with MPM prefork.

Clément.

[gfx]

Hmm, I think it is intended. How about Moose?

[coudot]

We don't use Moose to have a lighter memory use, but I can maybe give a try.

Why do you say it's intended? Seems to work well on recent Perl.

[gfx]

Oh, I'm sorry I didn't see what you said, "I can't reprodure with a more recent version of Perl (v5.18.2)".

It looks a bug and should be fixed.

[syohex]

@coudot Can this bug reproduce without Apachie mod_perl ?

There are some tests which uses lazy and subroutine argument of default attribute,
for example t/200_examples/0071_Child_Parent_attr_inherit_imm.t.
However such tests are passed on Perl 5.10.1.

[coudot]

Sadly, the bug occurs only in mod_perl, with MPM worker, with quite old Perl version (5.10). It works well on the same system with MPM prefork.

I can reproduce the bug on CentOS 6 with standard packages.

[pwr22]

Hmmm, MPM worker uses multiple threads iirc, I wonder if this related to the issues here? #29

[syohex]

Thread issue was fixed at #50. Please check latest version again