diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-08 14:00:59 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-06-08 14:00:59 +0000 |
| commit | 5a33563ff27918110ac4f876f12dae861e2d2fa2 (patch) | |
| tree | f0a0f0ed52e73714fbeb7145161eec727a2f835b /ext | |
| parent | 24ead1638d1eb17b67e49c614831261308ed561f (diff) | |
| download | perl-5a33563ff27918110ac4f876f12dae861e2d2fa2.tar.gz | |
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.
p4raw-id: //depot/perl@34025
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/PerlIO/via/via.pm | 2 | ||||
| -rw-r--r-- | ext/PerlIO/via/via.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/PerlIO/via/via.pm b/ext/PerlIO/via/via.pm index c425f12f91..5a961654b2 100644 --- a/ext/PerlIO/via/via.pm +++ b/ext/PerlIO/via/via.pm @@ -1,5 +1,5 @@ package PerlIO::via; -our $VERSION = '0.05'; +our $VERSION = '0.06'; use XSLoader (); XSLoader::load 'PerlIO::via'; 1; diff --git a/ext/PerlIO/via/via.xs b/ext/PerlIO/via/via.xs index 3bc3cbb67c..5e6ddd3a9d 100644 --- a/ext/PerlIO/via/via.xs +++ b/ext/PerlIO/via/via.xs @@ -89,7 +89,7 @@ PerlIOVia_method(pTHX_ PerlIO * f, const char *method, CV ** save, int flags, 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); |