diff options
| author | Radu Greab <radu@netsoft.ro> | 2003-07-06 23:09:12 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-06 16:46:20 +0000 |
| commit | 7619c85e4dd9a96a05fc0fc72ace9eb2b9f1bc6f (patch) | |
| tree | 88ad9fbd60c34574dbe69a0d142746c4ba6673ef /perl.c | |
| parent | a7433df8ff37a7cd2fbb0f3ac8f0c0cc2aa71114 (diff) | |
| download | perl-7619c85e4dd9a96a05fc0fc72ace9eb2b9f1bc6f.tar.gz | |
DProf fixes
Message-ID: <16136.22456.99575.573777@ix.netsoft.ro>
p4raw-id: //depot/perl@20034
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -3483,17 +3483,17 @@ Perl_init_debugger(pTHX) HV *ostash = PL_curstash; PL_curstash = PL_debstash; - PL_dbargs = GvAV(gv_AVadd((gv_fetchpv("args", GV_ADDMULTI, SVt_PVAV)))); + PL_dbargs = GvAV(gv_AVadd((gv_fetchpv("DB::args", GV_ADDMULTI, SVt_PVAV)))); AvREAL_off(PL_dbargs); - PL_DBgv = gv_fetchpv("DB", GV_ADDMULTI, SVt_PVGV); - PL_DBline = gv_fetchpv("dbline", GV_ADDMULTI, SVt_PVAV); - PL_DBsub = gv_HVadd(gv_fetchpv("sub", GV_ADDMULTI, SVt_PVHV)); + 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)); sv_upgrade(GvSV(PL_DBsub), SVt_IV); /* IVX accessed if PERLDB_SUB_NN */ - PL_DBsingle = GvSV((gv_fetchpv("single", GV_ADDMULTI, SVt_PV))); + PL_DBsingle = GvSV((gv_fetchpv("DB::single", GV_ADDMULTI, SVt_PV))); sv_setiv(PL_DBsingle, 0); - PL_DBtrace = GvSV((gv_fetchpv("trace", GV_ADDMULTI, SVt_PV))); + PL_DBtrace = GvSV((gv_fetchpv("DB::trace", GV_ADDMULTI, SVt_PV))); sv_setiv(PL_DBtrace, 0); - PL_DBsignal = GvSV((gv_fetchpv("signal", GV_ADDMULTI, SVt_PV))); + PL_DBsignal = GvSV((gv_fetchpv("DB::signal", GV_ADDMULTI, SVt_PV))); sv_setiv(PL_DBsignal, 0); PL_DBassertion = GvSV((gv_fetchpv("assertion", GV_ADDMULTI, SVt_PV))); sv_setiv(PL_DBassertion, 0); |