/[pkgs]/devel/perl/perl-5.10.0-PerlIO-via-change34025.patch
ViewVC logotype

Contents of /devel/perl/perl-5.10.0-PerlIO-via-change34025.patch

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.1 - (show annotations) (download) (as text)
Mon Jan 19 08:36:43 2009 UTC (10 months ago) by mmaslano
Branch: MAIN
CVS Tags: F-12-split, perl-5_10_0-63_fc11, perl-5_10_0-61_fc11, perl-5_10_0-80_fc12, perl-5_10_0-81_fc12, perl-5_10_0-84_fc13, perl-5_10_0-82_fc13, perl-5_10_0-77_fc12, perl-5_10_0-83_fc13, perl-5_10_0-71_fc12, perl-5_10_0-57_fc11, perl-5_10_0-75_fc12, perl-5_10_0-73_fc12, perl-5_10_0-68_fc11, perl-5_10_0-67_fc11, perl-5_10_0-64_fc11, perl-5_10_0-72_fc12, perl-5_10_0-54_fc11, F-11-split, perl-5_10_0-62_fc11, perl-5_10_0-69_fc12, perl-5_10_0-79_fc12, perl-5_10_0-78_fc12, perl-5_10_0-56_fc11, perl-5_10_0-70_fc12, perl-5_10_0-74_fc12, perl-5_10_0-66_fc11, perl-5_10_0-59_fc11, perl-5_10_0-65_fc11, perl-5_10_0-58_fc11, perl-5_10_0-60_fc11, perl-5_10_0-76_fc12, HEAD
File MIME type: text/x-patch 
* Mon Jan 19 2009 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-54
- 455410 http://rt.perl.org/rt3/Public/Bug/Display.html?id=54934
  Attempt to free unreferenced scalar fiddling with the symbol table
  Keep the refcount of the globs generated by PerlIO::via balanced.
1 Change 34025 by rgs@scipion on 2008/06/08 14:00:59
2
3 Fix for bug [perl #54934] Attempt to free unreferenced scalar
4 fiddling with the symbol table
5 Keep the refcount of the globs generated by PerlIO::via balanced.
6
7 Affected files ...
8
9 ... //depot/perl/ext/PerlIO/via/via.pm#9 edit
10 ... //depot/perl/ext/PerlIO/via/via.xs#17 edit
11
12 Differences ...
13 diff -up perl-5.10.0/ext/PerlIO/via/via.xs.34025 perl-5.10.0/ext/PerlIO/via/via.xs
14 --- perl-5.10.0/ext/PerlIO/via/via.xs.34025 2007-12-18 11:47:07.000000000 +0100
15 +++ perl-5.10.0/ext/PerlIO/via/via.xs 2009-01-19 09:15:46.000000000 +0100
16 @@ -89,7 +89,7 @@ PerlIOVia_method(pTHX_ PerlIO * f, char
17 if (!s->fh) {
18 GV *gv = newGVgen(HvNAME_get(s->stash));
19 GvIOp(gv) = newIO();
20 - s->fh = newRV_noinc((SV *) gv);
21 + s->fh = newRV((SV *) gv);
22 s->io = GvIOp(gv);
23 }
24 IoIFP(s->io) = PerlIONext(f);
admin@fedoraproject.org
 ViewVC Help
Powered by ViewVC 1.1.2