diff options
| author | Sergey Skvortsov <skv@FreeBSD.org> | 2009-04-04 09:06:53 +0000 |
|---|---|---|
| committer | Sergey Skvortsov <skv@FreeBSD.org> | 2009-04-04 09:06:53 +0000 |
| commit | d70143844849daaab2b798d1f12f92ba5037be3f (patch) | |
| tree | 01e3fef15f2eb91721ec1e9ecc54d96ce294a67f /lang/perl5.16/files/patch-bug54934 | |
| parent | update to 0.62.2 (diff) | |
Add several bugfixes, imported from maint-5.10
(i.e. will be included into forthcoming 5.10.1).
Notes
Notes:
svn path=/head/; revision=231575
Diffstat (limited to 'lang/perl5.16/files/patch-bug54934')
| -rw-r--r-- | lang/perl5.16/files/patch-bug54934 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lang/perl5.16/files/patch-bug54934 b/lang/perl5.16/files/patch-bug54934 new file mode 100644 index 000000000000..7c4544f58c0b --- /dev/null +++ b/lang/perl5.16/files/patch-bug54934 @@ -0,0 +1,15 @@ +# http://rt.perl.org/rt3/Public/Bug/Display.html?id=49003 +# http://perl5.git.perl.org/perl.git/commitdiff/5a33563ff27918110ac4f876f12dae861e2d2fa2?hp=24ead1638d1eb17b67e49c614831261308ed561f +diff --git a/ext/PerlIO/via/via.xs b/ext/PerlIO/via/via.xs +index 3bc3cbb..5e6ddd3 100644 +--- ext/PerlIO/via/via.xs ++++ 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); |