Change 34025 by [EMAIL PROTECTED] on 2008/06/08 14:00:59
Fix for bug [perl #54934] Attempt to free unreferenced scalar fiddling
with the symbol table
Keep the refcount of the globs generated by PerlIO::via balanced.
Affected files ...
... //depot/perl/ext/PerlIO/via/via.pm#9 edit
... //depot/perl/ext/PerlIO/via/via.xs#17 edit
Differences ...
==== //depot/perl/ext/PerlIO/via/via.pm#9 (text) ====
Index: perl/ext/PerlIO/via/via.pm
--- perl/ext/PerlIO/via/via.pm#8~33621~ 2008-03-31 15:25:19.000000000 -0700
+++ perl/ext/PerlIO/via/via.pm 2008-06-08 07:00:59.000000000 -0700
@@ -1,5 +1,5 @@
package PerlIO::via;
-our $VERSION = '0.05';
+our $VERSION = '0.06';
use XSLoader ();
XSLoader::load 'PerlIO::via';
1;
==== //depot/perl/ext/PerlIO/via/via.xs#17 (text) ====
Index: perl/ext/PerlIO/via/via.xs
--- perl/ext/PerlIO/via/via.xs#16~33052~ 2008-01-23 01:51:35.000000000
-0800
+++ perl/ext/PerlIO/via/via.xs 2008-06-08 07:00:59.000000000 -0700
@@ -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);
End of Patch.
