Hello community, here is the log from the commit of package perl for openSUSE:Factory checked in at Fri Jun 12 16:26:41 CEST 2009. -------- --- perl/perl.changes 2009-01-14 16:00:16.000000000 +0100 +++ perl/perl.changes 2009-06-10 12:36:13.534406000 +0200 @@ -1,0 +2,8 @@ +Wed Jun 10 11:46:53 CEST 2009 - mls@suse.de + +- fixed off-by-one in zlib inflate code [bnc#511241] +- fixed errorcount initialization [bnc#498425] +- fixed utf8 handling in Net::Cmd [bnc#493978] +- fixed performace degradation in syslog [bnc#489114] + +------------------------------------------------------------------- calling whatdependson for head-i586 New: ---- perl-errorcount.diff perl-fast-syslog.diff perl-netcmdutf8.diff perl-zlib-growoob.diff ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl.spec ++++++ --- /var/tmp/diff_new_pack.D23410/_old 2009-06-12 16:15:47.000000000 +0200 +++ /var/tmp/diff_new_pack.D23410/_new 2009-06-12 16:15:47.000000000 +0200 @@ -22,7 +22,7 @@ Url: http://www.perl.org/ BuildRequires: db-devel gdbm-devel ncurses-devel zlib-devel Version: 5.10.0 -Release: 65 +Release: 67 Summary: The Perl interpreter License: Artistic License; GPL v2 or later Group: Development/Languages/Perl @@ -49,6 +49,10 @@ Patch6: perl-file_path_rmtree_chmod.diff Patch7: perl-file_path_rmtree_chmod_again.diff Patch8: perl-nroff.diff +Patch9: perl-zlib-growoob.diff +Patch10: perl-errorcount.diff +Patch11: perl-netcmdutf8.diff +Patch12: perl-fast-syslog.diff BuildRoot: %{_tmppath}/%{name}-%{version}-build %description @@ -126,6 +130,10 @@ %patch6 %patch7 %patch8 +%patch9 +%patch10 +%patch11 +%patch12 %build options="-Doptimize='$RPM_OPT_FLAGS -Wall -pipe'" @@ -356,6 +364,11 @@ %doc /usr/lib/perl5/*/unicore/*.txt %changelog +* Wed Jun 10 2009 mls@suse.de +- fixed off-by-one in zlib inflate code [bnc#511241] +- fixed errorcount initialization [bnc#498425] +- fixed utf8 handling in Net::Cmd [bnc#493978] +- fixed performace degradation in syslog [bnc#489114] * Wed Jan 14 2009 mls@suse.de - work around nroff change [bnc#463444] - fix another rmtree vulnerability [bnc#450385] @@ -646,14 +659,14 @@ - Fixed for SPARC * Tue Nov 02 1999 ro@suse.de - do h2ph for stdarg and stddef (BUG#785) -* Mon Oct 18 1999 ro@suse.de +* Tue Oct 19 1999 ro@suse.de - don't print error if /usr/src/linux is not owned by a package (BUG#215) * Mon Sep 13 1999 bs@suse.de - ran old prepare_spec on spec file to switch to new prepare_spec. * Fri Aug 27 1999 ro@suse.de - added "gnu","net" and "rpc" to directories for h2ph -* Thu Jul 08 1999 ro@suse.de +* Fri Jul 09 1999 ro@suse.de - added "bits" to directories for h2ph (closing BUG 58) * Thu Jul 08 1999 ro@suse.de - fix for perldoc ++++++ perl-errorcount.diff ++++++ --- toke.c.orig 2007-12-18 10:47:08.000000000 +0000 +++ toke.c 2009-06-10 09:20:40.000000000 +0000 @@ -692,6 +692,7 @@ Perl_lex_start(pTHX_ SV *line, PerlIO *r #else parser->nexttoke = 0; #endif + parser->error_count = oparser ? oparser->error_count : 0; parser->copline = NOLINE; parser->lex_state = LEX_NORMAL; parser->expect = XSTATE; ++++++ perl-fast-syslog.diff ++++++ --- ext/Sys/Syslog/Syslog.pm.orig 2007-12-18 10:47:07.000000000 +0000 +++ ext/Sys/Syslog/Syslog.pm 2009-06-10 09:39:14.000000000 +0000 @@ -741,7 +741,7 @@ sub connection_ok { my $rin = ''; vec($rin, fileno(SYSLOG), 1) = 1; - my $ret = select $rin, undef, $rin, 0.25; + my $ret = select $rin, undef, $rin, 0; return ($ret ? 0 : 1); } ++++++ perl-netcmdutf8.diff ++++++ --- lib/Net/Cmd.pm.orig 2009-06-10 09:23:18.000000000 +0000 +++ lib/Net/Cmd.pm 2009-06-10 09:25:49.000000000 +0000 @@ -226,6 +226,10 @@ sub command { $str = $cmd->toascii($str) if $tr; $str .= "\015\012"; + # encode to individual utf8 bytes if + # $str is a string (in internal UTF-8) + utf8::encode($str) if is_utf8($str); + my $len = length $str; my $swlen; @@ -471,6 +475,10 @@ sub rawdatasend { return 0 unless defined(fileno($cmd)); + # encode to individual utf8 bytes if + # $line is a string (in internal UTF-8) + utf8::encode($line) if is_utf8($line); + return 1 unless length($line); ++++++ perl-zlib-growoob.diff ++++++ --- ./ext/Compress/Raw/Zlib/Zlib.xs.orig 2007-12-18 10:47:07.000000000 +0000 +++ ./ext/Compress/Raw/Zlib/Zlib.xs 2009-06-10 09:11:57.000000000 +0000 @@ -1295,7 +1295,7 @@ inflate (s, buf, output, eof=FALSE) if (s->stream.avail_out == 0 ) { /* out of space in the output buffer so make it bigger */ - Sv_Grow(output, SvLEN(output) + bufinc) ; + Sv_Grow(output, SvLEN(output) + bufinc + 1) ; cur_length += increment ; s->stream.next_out = (Bytef*) SvPVbyte_nolen(output) + cur_length ; increment = bufinc ; @@ -1336,7 +1336,7 @@ inflate (s, buf, output, eof=FALSE) s->stream.avail_in = 1; if (s->stream.avail_out == 0) { /* out of space in the output buffer so make it bigger */ - Sv_Grow(output, SvLEN(output) + bufinc) ; + Sv_Grow(output, SvLEN(output) + bufinc + 1) ; cur_length += increment ; s->stream.next_out = (Bytef*) SvPVbyte_nolen(output) + cur_length ; increment = bufinc ; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org