Return-Path: Delivered-To: apmail-perl-modperl-archive@www.apache.org Received: (qmail 98630 invoked from network); 13 Oct 2006 14:22:04 -0000 Received: from hermes.apache.org (HELO mail.apache.org) (209.237.227.199) by minotaur.apache.org with SMTP; 13 Oct 2006 14:22:04 -0000 Received: (qmail 115 invoked by uid 500); 13 Oct 2006 14:21:39 -0000 Delivered-To: apmail-perl-modperl-archive@perl.apache.org Received: (qmail 99938 invoked by uid 500); 13 Oct 2006 14:21:38 -0000 Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm Precedence: bulk list-help: list-unsubscribe: List-Post: List-Id: Delivered-To: mailing list modperl@perl.apache.org Received: (qmail 99927 invoked by uid 99); 13 Oct 2006 14:21:38 -0000 Received: from asf.osuosl.org (HELO asf.osuosl.org) (140.211.166.49) by apache.org (qpsmtpd/0.29) with ESMTP; Fri, 13 Oct 2006 07:21:38 -0700 X-ASF-Spam-Status: No, hits=3.9 required=10.0 tests=DNS_FROM_RFC_ABUSE,DNS_FROM_RFC_POST,HTML_MESSAGE X-Spam-Check-By: apache.org Received-SPF: pass (asf.osuosl.org: local policy includes SPF record at spf.trusted-forwarder.org) Received: from [217.12.10.221] (HELO web26010.mail.ukl.yahoo.com) (217.12.10.221) by apache.org (qpsmtpd/0.29) with SMTP; Fri, 13 Oct 2006 07:21:33 -0700 Received: (qmail 3270 invoked by uid 60001); 13 Oct 2006 14:21:11 -0000 DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=s1024; d=yahoo.co.uk; h=Message-ID:Received:Date:From:Subject:To:In-Reply-To:MIME-Version:Content-Type:Content-Transfer-Encoding; b=1OihgtlF/T3WWvKJoyEDLJPjID2pX/Z++uty0yDMNt9bsM/u+dEJjnR3oxDX5d5cOG4LDAdauWNs0E7ohRlExeLnmGkaJx5KMOP7wNHxoMwCJOrBEQegMSFQ8PKLQ+CmrgyeSctfXuDIEaZdcGxJXAwaJ62mofgH5e2+4ZJDA7U= ; Message-ID: <20061013142111.3268.qmail@web26010.mail.ukl.yahoo.com> Received: from [161.85.127.139] by web26010.mail.ukl.yahoo.com via HTTP; Fri, 13 Oct 2006 15:21:11 BST Date: Fri, 13 Oct 2006 15:21:11 +0100 (BST) From: Anthony Gardner Subject: Re: apache2 and ptkdb (bit of progress) To: Jeff Pang , mod_perl In-Reply-To: <28916812.1160727702256.JavaMail.root@elwamui-milano.atl.sa.earthlink.net> MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="0-1730879182-1160749271=:2189" Content-Transfer-Encoding: 8bit X-Virus-Checked: Checked by ClamAV on apache.org X-Spam-Rating: minotaur.apache.org 1.6.2 0/1000/N --0-1730879182-1160749271=:2189 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit okay, I've hacked Devel::ptkdb and Apache::DB a bit as suggested by http://article.gmane.org/gmane.comp.apache.mod-perl/7562 changed a bit for MP2 and http://perl.apache.org/docs/1.0/guide/debug.html#ptkdb_and_Interactive_mod_perl_Debugging Now, I get the gui but no contents are displayed in it. If I step over a few times (blindly) I end up in ..... package IO::Handle::DESTROY the gui then dies and the output is displayed in the browser. If I manage to hit a process that's already run the debugger, i am able to see my program in the gui all wrapped in the ModPerl namespace but I still can't manage to step through the code. I still end up at IO::Handle::DESTROY Has everyone had to hack apache::DB and Devel::ptkdb ??? It's the same for a single or multi processess running. Am really curious about this. #!/usr/bin/perl -d:ptkdb use strict; sub BEGIN { $ENV{DISPLAY} = 'localhost:0.0'; } print 'Content-type: text/html' . "\n\n"; print "$$
"; print 'Hello
'; print 'Goodbye'; my $struct = { key1 => [ qw| Hello World |, { key2 => 'At Last!!' } ] }; print; ## just so I can see the contents of $struct -Ants Jeff Pang wrote: Hello, Have you loaded the ModPerl::Registry?How can you know your modperl scripts can't be run? When you meet problems,you can look at the error_log where you could find most of the problems. And,here is my mp2 config,it can run well for me: PerlModule ModPerl::Registry SetHandler perl-script PerlResponseHandler ModPerl::Registry PerlOptions +ParseHeaders Options +ExecCGI Good luck! -----Original Message----- >From: Anthony Gardner >Sent: Oct 13, 2006 3:53 AM >To: mod_perl >Subject: apache2 and ptkdb > >I'm having problems getting ptkdb to work under ModPerl::Registry. > >this works but it won;t be running under mod_perl > > > AllowOverride Limit >## SetHandler perl-script >## PerlResponseHandler ModPerl::Registry > PerlOptions +ParseHeaders > Options +ExecCGI > > >the following won't work at all > > > AllowOverride Limit > SetHandler perl-script > PerlResponseHandler ModPerl::Registry > PerlOptions +ParseHeaders > Options +ExecCGI > > >any ideas greatly appreciated > >CIA > >-Ants > > > > >--------------------------------- > Try the all-new Yahoo! Mail . "The New Version is radically easier to use" ?The Wall Street Journal -- Books below translated by me to Chinese. Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/ Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/ Send instant messages to your online friends http://uk.messenger.yahoo.com --0-1730879182-1160749271=:2189 Content-Type: text/html; charset=iso-8859-1 Content-Transfer-Encoding: 8bit okay,

I've hacked Devel::ptkdb and Apache::DB a bit as suggested by
http://article.gmane.org/gmane.comp.apache.mod-perl/7562

changed a bit for MP2

and

http://perl.apache.org/docs/1.0/guide/debug.html#ptkdb_and_Interactive_mod_perl_Debugging

Now, I get the gui but no contents are displayed in it. If I step over a few times (blindly) I end up in .....

package IO::Handle::DESTROY

the gui then dies and the output is displayed in the browser.

If I manage to hit a process that's already run the debugger, i am able to see my program in the gui all wrapped in the ModPerl namespace but I still can't manage to step through the code.

I still end up at IO::Handle::DESTROY

Has everyone had to hack apache::DB and Devel::ptkdb ???

It's the same for a single or multi processess running.

Am really curious about this.

#!/usr/bin/perl -d:ptkdb

use strict;

sub BEGIN {
$ENV{DISPLAY} = 'localhost:0.0';
}

print 'Content-type: text/html' . "\n\n";
print "$$<br />";
print 'Hello<br />';
print 'Goodbye';

my $struct = { key1 => [ qw| Hello World |, { key2 => 'At Last!!' } ] };

print; ## just so I can see the contents of $struct

-Ants

Jeff Pang <pangj@earthlink.net> wrote:

Hello,

Have you loaded the ModPerl::Registry?How can you know your modperl scripts can't be run?
When you meet problems,you can look at the error_log where you could find most of the problems.
And,here is my mp2 config,it can run well for me:

PerlModule ModPerl::Registry

SetHandler perl-script
PerlResponseHandler ModPerl::Registry
PerlOptions +ParseHeaders
Options +ExecCGI

Good luck!

-----Original Message-----
>From: Anthony Gardner
>Sent: Oct 13, 2006 3:53 AM
>To: mod_perl
>Subject: apache2 and ptkdb
>
>I'm having problems getting ptkdb to work under ModPerl::Registry.
>
>this works but it won;t be running under mod_perl
>
>
> AllowOverride Limit
>## SetHandler perl-script
>## PerlResponseHandler ModPerl::Registry
> PerlOptions +ParseHeaders
> Options +ExecCGI
>
>
>the following won't work at all
>
>
> AllowOverride Limit
> SetHandler perl-script
> PerlResponseHandler ModPerl::Registry
> PerlOptions +ParseHeaders
> Options +ExecCGI
>
>
>any ideas greatly appreciated
>
>CIA
>
>-Ants
>
>
>
>
>---------------------------------
> Try the all-new Yahoo! Mail . "The New Version is radically easier to use" ?The Wall Street Journal

--
Books below translated by me to Chinese.
Practical mod_perl: http://home.earthlink.net/~pangj/mod_perl/
Squid the Definitive Guide: http://home.earthlink.net/~pangj/squid/

Send instant messages to your online friends http://uk.messenger.yahoo.com --0-1730879182-1160749271=:2189--