diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1997-10-28 17:16:13 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1997-11-26 01:22:10 +0000 |
| commit | 549bb64a6fc9695371ddc1f831ff6052dc3ba7f1 (patch) | |
| tree | 1b1ceb182065ced2eef08fc09f9a9a14afc32d8e /op.c | |
| parent | 00d579c5f79d1baaed14ef28a9c9de3c6d64f4d0 (diff) | |
| download | perl-549bb64a6fc9695371ddc1f831ff6052dc3ba7f1.tar.gz | |
[win32] Sync another change from local repository.
Message-Id: <199710290316.WAA15888@aatma.engin.umich.edu>
Subject: Re: do_postponed breaks with multiple interpreters
p4raw-id: //depot/win32/perl@307
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -3433,7 +3433,7 @@ newSUB(I32 floor, OP *o, OP *proto, OP *block) if (PERLDB_SUBLINE && curstash != debstash) { SV *sv = NEWSV(0,0); SV *tmpstr = sv_newmortal(); - static GV *db_postponed; + GV *db_postponed = gv_fetchpv("DB::postponed", GV_ADDMULTI, SVt_PVHV); CV *cv; HV *hv; @@ -3442,9 +3442,6 @@ newSUB(I32 floor, OP *o, OP *proto, OP *block) (long)subline, (long)curcop->cop_line); gv_efullname3(tmpstr, gv, Nullch); hv_store(GvHV(DBsub), SvPVX(tmpstr), SvCUR(tmpstr), sv, 0); - if (!db_postponed) { - db_postponed = gv_fetchpv("DB::postponed", GV_ADDMULTI, SVt_PVHV); - } hv = GvHVn(db_postponed); if (HvFILL(hv) > 0 && hv_exists(hv, SvPVX(tmpstr), SvCUR(tmpstr)) && (cv = GvCV(db_postponed))) { |