Hello,
i used the Apache::DB at that this module is not longer working with newer
versions of Perl.
Method:
static void my_init_debugger()
{
dTHR;
PL_curstash = PL_debstash;
PL_dbargs =
GvAV(gv_AVadd((gv_fetchpv("DB::args", GV_ADDMULTI, SVt_PVAV))));
AvREAL_off(PL_dbargs);
PL_DBgv = gv_fetchpv("DB::DB", GV_ADDMULTI, SVt_PVGV);
PL_DBline = gv_fetchpv("DB::dbline", GV_ADDMULTI, SVt_PVAV);
PL_DBsub = gv_HVadd(gv_fetchpv("DB::sub", GV_ADDMULTI, SVt_PVHV));
PL_DBsingle = GvSV((gv_fetchpv("DB::single", GV_ADDMULTI, SVt_PV)));
sv_setiv(PL_DBsingle, 0);
PL_DBtrace = GvSV((gv_fetchpv("DB::trace", GV_ADDMULTI, SVt_PV)));
sv_setiv(PL_DBtrace, 0);
PL_DBsignal = GvSV((gv_fetchpv("DB::signal", GV_ADDMULTI, SVt_PV)));
sv_setiv(PL_DBsignal, 0);
PL_curstash = PL_defstash;
}
static void my_init_debugger()
{
dTHR;
Perl_init_debugger(aTHX);
}
with this small change it would work again for all versions of Perl. But I got
in trouble to publish this changes. Because the last Frank Wiles ( haven't used
Perl in many many years ) have only co-maintainer right and was not not able
to grant you maintainer access.
Could you do this ?
Find attached the correspondence.
Best regards
Dirk Lindner
(https://metacpan.org/author/LZE
________________________________
Von: Frank Wiles <[email protected]>
Gesendet: Donnerstag, 7. März 2019 21:36
An: Dirk Lindner
Betreff: Re: Apache::DB (not longer working) fix
Hi Dirk,
Ah apparently I'm not the main maintainer on that, just a co-maintainer so I
can't grant you maintainer access :(
You need to contact [email protected]<mailto:[email protected]> I believe and request
access.
--
Frank Wiles
President/Founder of REVSYS
www.revsys.com<https://www.revsys.com>
@fwiles
On Wed, Mar 6, 2019 at 4:54 PM Dirk Lindner
<[email protected]<mailto:[email protected]>> wrote:
Hello frank,
my Pause ID is LZE.
Best reagarads
DIrk Lindner
________________________________
Von: Frank Wiles <[email protected]<mailto:[email protected]>>
Gesendet: Mittwoch, 6. März 2019 17:49
An: Dirk Lindner
Betreff: Re: Apache::DB (not longer working) fix
Great! What's your PAUSE id?
--
Frank Wiles
President/Founder of REVSYS
www.revsys.com<https://www.revsys.com>
@fwiles
On Sun, Mar 3, 2019 at 6:25 AM Dirk Lindner
<[email protected]<mailto:[email protected]>> wrote:
Hello Frank,
yes i would take it over.
regards
Dirk Lindner
________________________________
Von: Frank Wiles <[email protected]<mailto:[email protected]>>
Gesendet: Montag, 28. Januar 2019 16:45
An: Dirk Lindner
Betreff: Re: Apache::DB (not longer working) fix
Hi Dirk,
I actually haven't used Perl in many many years, would you want to just take it
over?
--
Frank Wiles
Revolution Systems | http://www.revsys.com/
[email protected]<mailto:[email protected]> | (800) 647-6298
On Sun, Jan 27, 2019 at 6:12 AM Dirk Lindner
<[email protected]<mailto:[email protected]>> wrote:
Hello Frank,
i used the Apache::DB at that this module is not longer working with newer
versions of Perl.
Method:
static void my_init_debugger()
{
dTHR;
PL_curstash = PL_debstash;
PL_dbargs =
GvAV(gv_AVadd((gv_fetchpv("DB::args", GV_ADDMULTI, SVt_PVAV))));
AvREAL_off(PL_dbargs);
PL_DBgv = gv_fetchpv("DB::DB", GV_ADDMULTI, SVt_PVGV);
PL_DBline = gv_fetchpv("DB::dbline", GV_ADDMULTI, SVt_PVAV);
PL_DBsub = gv_HVadd(gv_fetchpv("DB::sub", GV_ADDMULTI, SVt_PVHV));
PL_DBsingle = GvSV((gv_fetchpv("DB::single", GV_ADDMULTI, SVt_PV)));
sv_setiv(PL_DBsingle, 0);
PL_DBtrace = GvSV((gv_fetchpv("DB::trace", GV_ADDMULTI, SVt_PV)));
sv_setiv(PL_DBtrace, 0);
PL_DBsignal = GvSV((gv_fetchpv("DB::signal", GV_ADDMULTI, SVt_PV)));
sv_setiv(PL_DBsignal, 0);
PL_curstash = PL_defstash;
}
The code was simply copied from the sourcecode (Perl_init_debugger int
"Perl.c",) so could you replace this with:
static void my_init_debugger()
{
dTHR;
Perl_init_debugger(aTHX);
}
with this small change it would work again for all versions of Perl.
Best regards
Dirk Lindner
(https://metacpan.org/author/LZE)
ps: i could help you also to maintain this module because is still use it.
Dirk Lindner (LZE) - metacpan.org<https://metacpan.org/author/LZE>
metacpan.org<http://metacpan.org>
As a valued partner and proud supporter of MetaCPAN, StickerYou is happy to
offer a 10% discount on all Custom Stickers, Business Labels, Roll Labels,
Vinyl Lettering or Custom Decals. StickerYou.com is your one-stop shop to make
your business stick. Use code METACPAN10 at checkout to apply your discount.
