On Tue, 05 Mar 2002 10:00:56 +0800 Stas Bekman <[EMAIL PROTECTED]> wrote:
> Enrico Sorcinelli wrote:
> > On Fri, 01 Mar 2002 11:16:15 +0800
> > Stas Bekman <[EMAIL PROTECTED]> wrote:
> >
> >
> >>Enrico Sorcinelli wrote:
> >>
> >>>Hi all,
> >>>I started to use Apache::DB (0.06) to interactively debug under mod_perl using
>ptkdb. I see that is necessary to modify Apache/DB.pm but, after this, the debugger
>will be run always under ptkdb. The little patch I propose to Apache/DB.pm is to
>improve Apache to dinamically switch from command line to GUI (ptkdb) interface by
>configuring this in httpd.conf.
> >>>
> >>Hi Enrico,
> >>
> >>Does it actually work for you? My previous experience with it wasn't so
> >>good. I was manually loading Devel/ptkdb.pm instead of Apache/perl5db.pl
> >>and it'll work for the first request, but then will hang. I see that
> >>ptkdb hasn't changed since the last time I've tried it. May be it's a
> >>newer perlTk that works better now?
> >>
> >>
> >
> > Dear Stas,
> > I know the hang problem (I've started to hack the ptkdb code but it is enough
>complex...)
> > However I find the GUI debugger useful. My TEMPORARY workaround is:
> >
> > 1) Initially (and if possible) I've used a brutal 'kill 9 $$' code in cleanup
>handler
> >
> > if (ref $r) {
> > $SIG{INT} = \&DB::catch;
> > $r->register_cleanup(sub {
> > $SIG{INT} = \&DB::ApacheSIGINT();
> >
> >>>> kill 9, $$ if $ptkdb;
> >>>>
> > });
> > }
>
> Yup, tried that, but I didn't like that approach.
I agree with you, was only a drastic and immediate solution!
>
> > then now
> >
> > 2) I use the ptkdb 'File' menu command "Close Window and Run" (but I've added this
>in the button bar) instead of "Run". In this case at the end of code, the debugger
>won't hang and the window will closed. Note that if there are breakpoint, the window
>will be closed and re-opened and all breakpoint are maintained (it is more convenient
>to use 'Close Window and Run' only after last breakpoint).
>
> Cool! Any chance you can submit a patch to the author of ptkdb so we can
> all benefit from this trick? CC'ing mod_perl list will be useful too.
I've attached the patch to this e-mail. Also I will submit to the author asap.
Note: the patch only add a short cut for "Close Window and Run" as "Run and Exit" in
main button bar (type 'patch -p0 < Devel-ptkdb-1.1074-patch' in the same dir of
Devel/ptkdb.pm)
>
> I wish someone with perl/Tk knowledge could solve the hanging problem.
>
I wish me too!
After a brief ptkdb.pm code analysis, I've seen that the debugger seems to hang, after
last 'Run' command, in Tk::DoOneEvent(0) call (main_loop sub, line 2922).
Yours
Enrico
=========================================================
Enrico Sorcinelli - Gruppo E-Comm - Italia On Line S.p.a.
E-Mail: [EMAIL PROTECTED] - [EMAIL PROTECTED]
=========================================================
Devel-ptkdb-1.1074-patch
Description: Binary data
