[packages/perl.git] / perl-PerlIO.patch

diff -ur perl-5.10.0.org/ext/PerlIO/via/via.xs perl-5.10.0/ext/PerlIO/via/via.xs
--- perl-5.10.0.org/ext/PerlIO/via/via.xs	2007-12-18 11:47:07.000000000 +0100
+++ perl-5.10.0/ext/PerlIO/via/via.xs	2008-08-10 00:35:51.367506014 +0200
@@ -89,7 +89,7 @@
 	    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);
Commit	Line	Data
cc5cf225 AM	1	diff -ur perl-5.10.0.org/ext/PerlIO/via/via.xs perl-5.10.0/ext/PerlIO/via/via.xs
	2	--- perl-5.10.0.org/ext/PerlIO/via/via.xs 2007-12-18 11:47:07.000000000 +0100
	3	+++ perl-5.10.0/ext/PerlIO/via/via.xs 2008-08-10 00:35:51.367506014 +0200
	4	@@ -89,7 +89,7 @@
	5	if (!s->fh) {
	6	GV *gv = newGVgen(HvNAME_get(s->stash));
	7	GvIOp(gv) = newIO();
	8	- s->fh = newRV_noinc((SV *) gv);
	9	+ s->fh = newRV((SV *) gv);
	10	s->io = GvIOp(gv);
	11	}
	12	IoIFP(s->io) = PerlIONext(f);