X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perlio.c;h=95867507a9f6bb36a91fb837cc83c7ecaa57979a;hb=e66636537be1375e175fdc55f8c556880390711f;hp=939665021f7475854eba9b307f84f4e948e6c8fd;hpb=f3be372353a263b94b1bb39fd4c8da0548050a63;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perlio.c b/perlio.c
index 9396650..9586750 100644
--- a/perlio.c
+++ b/perlio.c
@@ -902,7 +902,7 @@ XS(XS_io_MODIFY_SCALAR_ATTRIBUTES)
 SV *
 PerlIO_tab_sv(pTHX_ PerlIO_funcs *tab)
 {
-    HV * const stash = gv_stashpvs("PerlIO::Layer", TRUE);
+    HV * const stash = gv_stashpvs("PerlIO::Layer", GV_ADD);
     SV * const sv = sv_bless(newRV_noinc(newSViv(PTR2IV(tab))), stash);
     return sv;
 }