SOURCES: perl-PerlIO.patch (NEW) http://public.activestate.com/cgi-bin/perl...

arekm arekm at pld-linux.org
Sun Aug 10 00:37:32 CEST 2008


Author: arekm                        Date: Sat Aug  9 22:37:32 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
http://public.activestate.com/cgi-bin/perlbrowse/p/34025

---- Files affected:
SOURCES:
   perl-PerlIO.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/perl-PerlIO.patch
diff -u /dev/null SOURCES/perl-PerlIO.patch:1.1
--- /dev/null	Sun Aug 10 00:37:32 2008
+++ SOURCES/perl-PerlIO.patch	Sun Aug 10 00:37:26 2008
@@ -0,0 +1,12 @@
+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);
================================================================


More information about the pld-cvs-commit mailing list