rpms/perl/F-7 perl-5.8.8-rhbz242249.patch, NONE, 1.1 perl.spec, 1.131, 1.132

[Marcela Mašláňová (mmaslano)]

Author: mmaslano

Update of /cvs/pkgs/rpms/perl/F-7
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv24873

Modified Files:
	perl.spec 
Added Files:
	perl-5.8.8-rhbz242249.patch 
Log Message:
242249: bug reading from socket in perl5db.pl


perl-5.8.8-rhbz242249.patch:

--- NEW FILE perl-5.8.8-rhbz242249.patch ---
Change 28510 by stevep at stevep-kirk on 2006/07/08 17:51:43

	Subject: [PATCH] perl5db.pl: read full lines from remote socket
	From: Brendan O'Dea <bod at debian.org>
	Date: Sat, 8 Jul 2006 13:27:50 +1000
	Message-ID: <20060708032750.GA20454 at londo.c47.org>

Affected files ...

... //depot/perl/lib/perl5db.pl#119 edit

Differences ...

==== //depot/perl/lib/perl5db.pl#119 (text) ====

@@ -6354,9 +6354,13 @@
         $OUT->write( join( '', @_ ) );
 
         # Receive anything there is to receive.
-        my $stuff;
-        $IN->recv( $stuff, 2048 );    # XXX "what's wrong with sysread?"
-                                      # XXX Don't know. You tell me.
+        $stuff;
+        my $stuff = '';
+        my $buf;
+        do {
+            $IN->recv( $buf = '', 2048 );   # XXX "what's wrong with sysread?"
+                                            # XXX Don't know. You tell me.
+        } while length $buf and ($stuff .= $buf) !~ /\n/;
 
         # What we got.
         $stuff;



Index: perl.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl/F-7/perl.spec,v
retrieving revision 1.131
retrieving revision 1.132
diff -u -r1.131 -r1.132
--- perl.spec	29 Apr 2008 06:55:57 -0000	1.131
+++ perl.spec	5 May 2008 14:11:12 -0000	1.132
@@ -20,7 +20,7 @@
 
 Name:           perl
 Version:        %{perl_version}
-Release:        29%{?dist}
+Release:        30%{?dist}
 Epoch:          %{perl_epoch}
 Summary:        The Perl programming language
 Group:          Development/Languages
@@ -126,6 +126,8 @@
 Patch43:	perl-5.8.8-bz323571.patch
 # Fix for CVE-2008-1927
 Patch44:	perl-5.8.8-CVE-2008-1927.patch
+# read full lines from remote socket
+Patch45:    perl-5.8.8-rhbz242249.patch
 
 BuildRoot:      %{_tmppath}/%{name}-%{perl_version}-%{release}-root-%(%{__id_u} -n)
 BuildRequires:  tcsh, dos2unix, man, groff
@@ -362,6 +364,7 @@
 %patch42 -p1
 %patch43 -p1
 %patch44 -p1
+%patch45 -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\)'
@@ -756,6 +759,9 @@
 %{_mandir}/man3/Test::Tutorial*
 
 %changelog
+* Mon May  5 2008 Marcela Maslanova <mmaslano at redhat.com> - 4:5.8.8-30
+- 242249: bug reading from socket in perl5db.pl
+
 * Tue Apr 29 2008 Marcela Maslanova <mmaslano at redhat.com> - 4:5.8.8-29
 - CVE-2008-1927 buffer overflow, when unicode character is used.