Bug#823217: libmouse-perl: Mouse generates a 'No package name defined' under ModPerl::Registry

Tue May 10 03:43:32 UTC 2016

On 08/05/2016 12:53, Niko Tyni wrote:
> Control: tag -1 moreinfo
> 
> On Tue, May 03, 2016 at 06:00:08AM +0200, Xavier wrote:
>> On 02/05/2016 13:51, Xavier Guimard wrote:
>>> Package: libmouse-perl
>>> Version: 2.4.5-1+b1
>>> Severity: normal
> 
>>> When "use Mouse" is called under ModPerl::Registry, it provides a strange "No
>>> package name defined" error. This bug affects only Debian testing, and is not
>>> found under Ubuntu 15.10 and Debian stable. No such error using Moose.
> 
>> Here is a simple CGI test that fails :
> 
> Hi, thanks for the report. I can't reproduce your issue on current
> unstable with your example and this Apache configuration:
> 
>  <Location /test.pl>
>  SetHandler perl-script
>  PerlHandler ModPerl::Registry
>  Options ExecCGI
>  </Location>
> 
> I just get the 'OK' output with this.
> 
> Can you please provide a simple Apache configuration that triggers it?

Hello,

it's a bit more complex (some Perl code was loaded). Here is an example
that reproduce the problem (the key is to load Mouse in a PerlModule
parameter and launch another Mouse code with ModPerl::Registry):

Apache.conf:

PerlModule My
<VirtualHost *:80>
ServerName test.example.com
# DocumentRoot
DocumentRoot /var/www/test
<Directory /var/www/test>
Require all granted
Options +ExecCGI +FollowSymLinks
</Directory>
# Perl script
<Files *.pl>
SetHandler perl-script
PerlResponseHandler ModPerl::Registry
</Files>
</VirtualHost>

test.pl:

package main;
use CGI;
use My2;
my $q = CGI->new();
print $q->header( -type => 'text/html' );
print '<html><body>OK</body></html>';

My.pm:

package My;
use strict;
use Mouse;
has a => ( is => 'rw' );
1;

My2.pm:

package My2;
use strict;
use Mouse;
has b => ( is => 'rw' );
1;