blob: 7c4544f58c0bf1bfc9384c61f9311c5021b1158a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
# http://rt.perl.org/rt3/Public/Bug/Display.html?id=49003
# http://perl5.git.perl.org/perl.git/commitdiff/5a33563ff27918110ac4f876f12dae861e2d2fa2?hp=24ead1638d1eb17b67e49c614831261308ed561f
diff --git a/ext/PerlIO/via/via.xs b/ext/PerlIO/via/via.xs
index 3bc3cbb..5e6ddd3 100644
--- ext/PerlIO/via/via.xs
+++ ext/PerlIO/via/via.xs
@@ -89,7 +89,7 @@ PerlIOVia_method(pTHX_ PerlIO * f, const char *method, CV ** save, int flags,
if (!s->fh) {
GV *gv = newGVgen(HvNAME_get(s->stash));
GvIOp(gv) = newIO();
- s->fh = newRV_noinc((SV *) gv);
+ s->fh = newRV((SV *) gv);
s->io = GvIOp(gv);
}
IoIFP(s->io) = PerlIONext(f);
|
