This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence bogus typo warning on $DB::postponed
authorGurusamy Sarathy <gsar@engin.umich.edu>
Thu, 27 Feb 1997 18:02:30 +0000 (13:02 -0500)
committerChip Salzenberg <chip@atlantic.net>
Tue, 25 Feb 1997 01:12:02 +0000 (13:12 +1200)
private-msgid: <199702271802.NAA12505@aatma.engin.umich.edu>

op.c

diff --git a/op.c b/op.c
index f6c57e5..db97cb6 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3170,7 +3170,7 @@ OP *block;
            gv_efullname3(tmpstr, gv, Nullch);
            hv_store(GvHV(DBsub), SvPVX(tmpstr), SvCUR(tmpstr), sv, 0);
            if (!db_postponed) {
-               db_postponed = gv_fetchpv("DB::postponed", TRUE, SVt_PVHV);
+               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))