From cc5cf225f1cd2e8dd18745177c820c4038aeaafc Mon Sep 17 00:00:00 2001
From: =?utf8?q?Arkadiusz=20Mi=C5=9Bkiewicz?= <arekm@maven.pl>
Date: Sat, 9 Aug 2008 22:37:26 +0000
Subject: [PATCH] http://public.activestate.com/cgi-bin/perlbrowse/p/34025

Changed files:
    perl-PerlIO.patch -> 1.1
---
 perl-PerlIO.patch | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 perl-PerlIO.patch

diff --git a/perl-PerlIO.patch b/perl-PerlIO.patch
new file mode 100644
index 0000000..0d79255
--- /dev/null
+++ b/perl-PerlIO.patch
@@ -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);
-- 
2.44.0