[svn:ponie] r359 - trunk/perl/ext/PerlIO/via

Author: nicholas
Date: Mon Oct 17 13:15:56 2005
New Revision: 359

Modified:
   trunk/perl/ext/PerlIO/via/via.xs
Log:
Correct reference count error in ext/PerlIO/via/via.xs


Modified: trunk/perl/ext/PerlIO/via/via.xs
==============================================================================
--- trunk/perl/ext/PerlIO/via/via.xs	(original)
+++ trunk/perl/ext/PerlIO/via/via.xs	Mon Oct 17 13:15:56 2005
@@ -89,7 +89,7 @@ PerlIOVia_method(pTHX_ PerlIO * f, char 
 	    if (!s->fh) {
 		GV *gv = newGVgen(HvNAME(s->stash));
 		GvIOp(gv) = newIO();
-		s->fh = newRV_noinc((SV *) gv);
+		s->fh = newRV_inc((SV *) gv);
 		s->io = GvIOp(gv);
 	    }
 	    IoIFP(s->io) = PerlIONext(f);