Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: neutral (asf.osuosl.org: local policy)
Message-ID: <43A92C9A.5090003@mutex.dk>
Date: Wed, 21 Dec 2005 11:21:14 +0100
From: Peter Mogensen <apm@mutex.dk>
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US;
 rv:1.7.8) Gecko/20050927 Debian/1.7.8-1sarge3
MIME-Version: 1.0
To: modperl@perl.apache.org
Subject: MIME::Lite / mod_perl2 segfault
Content-Type: multipart/mixed;
 boundary="------------060609030007050106090607"

This is a multi-part message in MIME format.
--------------060609030007050106090607
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

Hi,

I think I have the signs of a bug somewhere. I'm building a mod_per2
application and lately the apache2 process has started to sigfault. It
seems to be after I started "use"ing MIME::Lite.

I've isolated the problem to the 3 small files included.
If I use MIME::Lite it apache will segfault on the first or second
request. (Also if I run /usr/sbin/apache2 -X )
If I don't use MIME::Lite, everything works.

My system is Debian Sarge, kernel 2.6.12.5 (custom compiled)
The rest is standard Sarge:
ii  apache2        2.0.54-5
ii  apache2-common 2.0.54-5
ii  apache2-mpm-pr 2.0.54-5
ii  apache2-utils  2.0.54-5
ii  libapache2-mod 1.999.21-1
ii  libmime-lite-p 3.01-4
ii  libmodule-buil 0.26-1
ii  libperl5.6     5.6.1-8.3
ii  libperl5.8     5.8.4-8
ii  perl           5.8.4-8

I've seen one other post with the same problem:
http://www.spanner.org/lists/mod_perl/2005/04/20/9c183e04.html

But have have not been able to find an explanation. If I try to locate
the cause with the perl-debugger it freezes.

regards,
Peter Mogensen


--------------060609030007050106090607
Content-Type: application/x-perl;
 name="MP.pm"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="MP.pm"

package MP;

use warnings;
use strict;

use MIME::Lite;


use Apache::RequestRec ;


use Apache::Const -compile => qw(REDIRECT OK SERVER_ERROR);

sub handler : method {
    my $class = shift;
    my $r = shift;


    print STDERR "DEBUG REQUEST\n";

    $r->content_type('text/plain');
    print "Debugtest";
    return Apache::OK;               

}


1;


--------------060609030007050106090607
Content-Type: application/x-perl;
 name="startup.pl"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="startup.pl"

# Template for modperl startup ... in -*- perl -*-

use lib qw(/home/apm/debugtest);


print STDERR "Debugtest startet\n";
print STDERR join(':', @INC), "\n";

1;


--------------060609030007050106090607
Content-Type: text/plain;
 name="apache.conf"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="apache.conf"

# This is an -*- apache -*- conf file ...(or template)

<VirtualHost *>
        ServerName debugtest
        DocumentRoot /home/apm/debugtest


#        <IfDefine PERLDB>
#
#            PerlRequire /home/apm/debugtest/db.pl
#            
#            <Location />
#                PerlFixupHandler Apache::DB
#            </Location>
#            
#        </IfDefine>
#


        PerlModule Apache2

        PerlPostConfigRequire /home/apm/debugtest/startup.pl

        <Location ~ "^/mp/$" >
            SetHandler perl-script
            PerlResponseHandler MP
        </Location>


        ErrorLog /home/apm/debugtest/log/error
        CustomLog /home/apm/debugtest/log/access combined

</VirtualHost>


--------------060609030007050106090607--