From: Tels <nospam-abuse@bloodgate.com>
Date: Thu, 29 Dec 2005 18:57:43 +0000 (+0100)
Subject: perlio.c - gv_stashpvn() vs gv_stashpv()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=89c1a98847aab770ea421d315d98085021b6187c;p=p5sagit%2Fp5-mst-13.2.git

perlio.c - gv_stashpvn() vs gv_stashpv()
Message-Id: <200512291857.59458@bloodgate.com>

p4raw-id: //depot/perl@26533
---

diff --git a/perlio.c b/perlio.c
index 49b1b2d..1c6da02 100644
--- a/perlio.c
+++ b/perlio.c
@@ -867,7 +867,7 @@ XS(XS_io_MODIFY_SCALAR_ATTRIBUTES)
 SV *
 PerlIO_tab_sv(pTHX_ PerlIO_funcs *tab)
 {
-    HV * const stash = gv_stashpv("PerlIO::Layer", TRUE);
+    HV * const stash = gv_stashpvn("PerlIO::Layer", 13, TRUE);
     SV * const sv = sv_bless(newRV_noinc(newSViv(PTR2IV(tab))), stash);
     return sv;
 }