REFCNT botch in layer name cache hash.

p4raw-id: //depot/perlio@9364

diff --git a/perlio.c b/perlio.c
index 50e3be1..194c14f 100644 (file)
--- 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;
         }