From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 26 Mar 2001 20:30:48 +0000 (+0000)
Subject: REFCNT botch in layer name cache hash.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=46236db6145fa50aba9a2041c76a8d3687ffc600;p=p5sagit%2Fp5-mst-13.2.git

REFCNT botch in layer name cache hash.

p4raw-id: //depot/perlio@9364
---

diff --git a/perlio.c b/perlio.c
index 50e3be1..194c14f 100644
--- a/perlio.c
+++ b/perlio.c
@@ -932,7 +932,7 @@ PerlIO_resolve_layers(pTHX_ const char *layers,const char *mode,int narg, SV **a
        if (handler)
         {
          def    = newAV();
-         av_push(def,handler);
+         av_push(def,SvREFCNT_inc(handler));
          av_push(def,&PL_sv_undef);
          incdef = 0;
         }