rpms/perl/F-9 perl-5.10.0-PerlIO-via-change34025.patch, NONE, 1.1 perl.spec, 1.185, 1.186

[Marcela Mašláňová]

Author: mmaslano

Update of /cvs/pkgs/rpms/perl/F-9
In directory cvs1.fedora.phx.redhat.com:/tmp/cvs-serv4402

Modified Files:
	perl.spec 
Added Files:
	perl-5.10.0-PerlIO-via-change34025.patch 
Log Message:
* Mon Jan 19 2009 Marcela Mašláňová <mmaslano at redhat.com> - 4:5.10.0-40
- 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.


perl-5.10.0-PerlIO-via-change34025.patch:

--- NEW FILE perl-5.10.0-PerlIO-via-change34025.patch ---
Change 34025 by rgs at scipion 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 ...
diff -up perl-5.10.0/ext/PerlIO/via/via.xs.34025 perl-5.10.0/ext/PerlIO/via/via.xs
--- perl-5.10.0/ext/PerlIO/via/via.xs.34025	2007-12-18 11:47:07.000000000 +0100
+++ perl-5.10.0/ext/PerlIO/via/via.xs	2009-01-19 09:15:46.000000000 +0100
@@ -89,7 +89,7 @@ PerlIOVia_method(pTHX_ PerlIO * f, char 
 	    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);


Index: perl.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl/F-9/perl.spec,v
retrieving revision 1.185
retrieving revision 1.186
diff -u -r1.185 -r1.186
--- perl.spec	29 Nov 2008 00:10:09 -0000	1.185
+++ perl.spec	20 Jan 2009 07:42:17 -0000	1.186
@@ -16,7 +16,7 @@
 
 Name:           perl
 Version:        %{perl_version}
-Release:        39%{?dist}
+Release:        40%{?dist}
 Epoch:          %{perl_epoch}
 Summary:        Practical Extraction and Report Language
 Group:          Development/Languages
@@ -125,6 +125,7 @@
 # http://www.nntp.perl.org/group/perl.perl5.changes/2008/05/msg21733.html
 Patch29:    perl-5.10.0-Change33897.patch
 
+Patch30:	perl-5.10.0-PerlIO-via-change34025.patch
 
 BuildRoot:      %{_tmppath}/%{name}-%{perl_version}-%{release}-root-%(%{__id_u} -n)
 BuildRequires:  tcsh, dos2unix, man, groff
@@ -861,6 +862,7 @@
 %patch27 -p1
 %patch28 -p1
 %patch29 -p1
+%patch30 -p1
 
 #
 # Candidates for doc recoding (need case by case review):
@@ -1089,6 +1091,7 @@
 perl -x patchlevel.h '33881 Integrate Changes 33825, 33826, 33829'
 perl -x patchlevel.h '33896 Eliminate POSIX::int_macro_int, and all the complex AUTOLOAD fandango'
 perl -x patchlevel.h '33897 Replaced the WEXITSTATUS, WIFEXITED, WIFSIGNALED, WIFSTOPPED, WSTOPSIG'
+perl -x patchlevel.h '54934 Change 34025 refcount of the globs generated by PerlIO::via balanced'
 
 %clean
 rm -rf $RPM_BUILD_ROOT
@@ -1694,6 +1697,11 @@
 
 # Old changelog entries are preserved in CVS.
 %changelog
+* Mon Jan 19 2009 Marcela Mašláňová <mmaslano at redhat.com> - 4:5.10.0-40
+- 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.
+
 * Fri Nov 28 2008 Tom "spot" Callaway <tcallawa at redhat.com> - 4:5.10.0-39
 - to fix Fedora bz 473223, which is really perl bug #54186 (http://rt.perl.org/rt3//Public/Bug/Display.html?id=54186)
   we apply Changes 33640, 33881, 33896, 33897