rpms/perl/F-7 perl-5.8.8-bug24254.patch, NONE, 1.1 perl.spec, 1.126, 1.127
Tom Callaway (spot)
fedora-extras-commits at redhat.com
Thu Oct 25 14:24:22 UTC 2007
- Previous message (by thread): rpms/gedit/F-8 .cvsignore, 1.69, 1.70 gedit.spec, 1.143, 1.144 sources, 1.71, 1.72
- Next message (by thread): rpms/elilo/devel elilo-3.6-libz.patch, NONE, 1.1 elilo.spec, 1.22, 1.23
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
Author: spot
Update of /cvs/pkgs/rpms/perl/F-7
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv29280
Modified Files:
perl.spec
Added Files:
perl-5.8.8-bug24254.patch
Log Message:
fix bugzilla 114271
perl-5.8.8-bug24254.patch:
--- NEW FILE perl-5.8.8-bug24254.patch ---
diff -up perl-5.8.8/cop.h.BAD perl-5.8.8/cop.h
--- perl-5.8.8/cop.h.BAD 2007-10-18 09:54:16.000000000 -0400
+++ perl-5.8.8/cop.h 2007-10-18 09:56:17.000000000 -0400
@@ -286,9 +286,14 @@ struct block_loop {
#define POPLOOP(cx) \
SvREFCNT_dec(cx->blk_loop.iterlval); \
if (CxITERVAR(cx)) { \
- SV **s_v_p = CxITERVAR(cx); \
- sv_2mortal(*s_v_p); \
- *s_v_p = cx->blk_loop.itersave; \
+ if (SvPADMY(cx->blk_loop.itersave)) { \
+ SV **s_v_p = CxITERVAR(cx); \
+ sv_2mortal(*s_v_p); \
+ *s_v_p = cx->blk_loop.itersave; \
+ } \
+ else { \
+ SvREFCNT_dec(cx->blk_loop.itersave); \
+ } \
} \
if (cx->blk_loop.iterary && cx->blk_loop.iterary != PL_curstack)\
SvREFCNT_dec(cx->blk_loop.iterary);
diff -up perl-5.8.8/t/op/local.t.BAD perl-5.8.8/t/op/local.t
--- perl-5.8.8/t/op/local.t.BAD 2007-10-18 10:53:10.000000000 -0400
+++ perl-5.8.8/t/op/local.t 2007-10-18 10:53:44.000000000 -0400
@@ -324,7 +324,7 @@ like($@, qr/Modification of a read-only
# make sure $1 is still read-only
eval { for ($1) { local $_ = 1 } };
-is($@, "");
+like($@, qr/Modification of a read-only value attempted/);
# The s/// adds 'g' magic to $_, but it should remain non-readonly
eval { for("a") { for $x (1,2) { local $_="b"; s/(.*)/+$1/ } } };
diff -up perl-5.8.8/op.c.BAD perl-5.8.8/op.c
Index: perl.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl/F-7/perl.spec,v
retrieving revision 1.126
retrieving revision 1.127
diff -u -r1.126 -r1.127
--- perl.spec 1 Oct 2007 17:06:45 -0000 1.126
+++ perl.spec 25 Oct 2007 14:23:47 -0000 1.127
@@ -20,7 +20,7 @@
Name: perl
Version: %{perl_version}
-Release: 24%{?dist}
+Release: 25%{?dist}
Epoch: %{perl_epoch}
Summary: The Perl programming language
Group: Development/Languages
@@ -120,6 +120,8 @@
Patch40: perl-5.8.8-U28775.patch
# Update DB_File to 1.815
Patch41: perl-5.8.8-DB_File-1.815.patch
+# Fix from perl bug #24254
+Patch42: perl-5.8.8-bug24254.patch
BuildRoot: %{_tmppath}/%{name}-%{perl_version}-%{release}-root-%(%{__id_u} -n)
BuildRequires: tcsh, dos2unix, man, groff
BuildRequires: gdbm-devel, db4-devel
@@ -348,6 +350,7 @@
%patch39 -p1
%patch40 -p1
%patch41 -p1
+%patch42 -p1
#
# Candidates for doc recoding (need case by case review):
# find . -name "*.pod" -o -name "README*" -o -name "*.pm" | xargs file -i | grep charset= | grep -v '\(us-ascii\|utf-8\)'
@@ -741,6 +744,9 @@
%{_mandir}/man3/Test::Tutorial*
%changelog
+* Thu Oct 25 2007 Tom "spot" Callaway <tcallawa at redhat.com> - 4:5.8.8-25
+- patch from perl bug 24254, fix for RH bz 114271
+
* Mon Oct 1 2007 Tom "spot" Callaway <tcallawa at redhat.com> - 4:5.8.8-24
- update DB_File to 1.815
- Previous message (by thread): rpms/gedit/F-8 .cvsignore, 1.69, 1.70 gedit.spec, 1.143, 1.144 sources, 1.71, 1.72
- Next message (by thread): rpms/elilo/devel elilo-3.6-libz.patch, NONE, 1.1 elilo.spec, 1.22, 1.23
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the fedora-extras-commits
mailing list