From c7e48ee4118e82633073cefc1ababd4d98f7067d Mon Sep 17 00:00:00 2001 From: Sergey Skvortsov Date: Fri, 11 Sep 2009 11:23:31 +0000 Subject: Update to 5.10.1 Changes: http://search.cpan.org/~dapm/perl-5.10.1/pod/perl5101delta.pod --- lang/perl5.16/files/patch-bug54934 | 15 --------------- 1 file changed, 15 deletions(-) delete mode 100644 lang/perl5.16/files/patch-bug54934 (limited to 'lang/perl5.16/files/patch-bug54934') diff --git a/lang/perl5.16/files/patch-bug54934 b/lang/perl5.16/files/patch-bug54934 deleted file mode 100644 index 7c4544f58c0b..000000000000 --- a/lang/perl5.16/files/patch-bug54934 +++ /dev/null @@ -1,15 +0,0 @@ -# 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); -- cgit v1.2.3