This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Avoid newRV_noinc() in IO, for compiling with old Perls
authorChip Salzenberg <chip@atlantic.net>
Tue, 28 Jan 1997 11:11:15 +0000 (23:11 +1200)
committerChip Salzenberg <chip@atlantic.net>
Wed, 29 Jan 1997 06:11:00 +0000 (18:11 +1200)
ext/IO/IO.xs

index daa22f6..8611b2d 100644 (file)
@@ -136,8 +136,9 @@ new_tmpfile(packname = "IO::File")
        gv = (GV*)SvREFCNT_inc(newGVgen(packname));
        hv_delete(GvSTASH(gv), GvNAME(gv), GvNAMELEN(gv), G_DISCARD);
        if (do_open(gv, "+>&", 3, FALSE, 0, 0, fp)) {
-           ST(0) = sv_2mortal(newRV_noinc((SV*)gv));
+           ST(0) = sv_2mortal(newRV((SV*)gv));
            sv_bless(ST(0), gv_stashpv(packname, TRUE));
+           SvREFCNT_dec(gv);   /* undo increment in newRV() */
        }
        else {
            ST(0) = &sv_undef;