Hello community, here is the log from the commit of package perl for openSUSE:Factory checked in at Wed Jan 14 17:44:52 CET 2009. -------- --- perl/perl.changes 2009-01-07 13:24:07.000000000 +0100 +++ /mounts/work_src_done/STABLE/perl/perl.changes 2009-01-14 16:00:16.000000000 +0100 @@ -1,0 +2,6 @@ +Wed Jan 14 15:58:56 CET 2009 - mls@suse.de + +- work around nroff change [bnc#463444] +- fix another rmtree vulnerability [bnc#450385] + +------------------------------------------------------------------- calling whatdependson for head-i586 New: ---- perl-file_path_rmtree_chmod_again.diff perl-nroff.diff ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl.spec ++++++ --- /var/tmp/diff_new_pack.k29660/_old 2009-01-14 17:41:40.000000000 +0100 +++ /var/tmp/diff_new_pack.k29660/_new 2009-01-14 17:41:40.000000000 +0100 @@ -22,7 +22,7 @@ Url: http://www.perl.org/ BuildRequires: db-devel gdbm-devel ncurses-devel zlib-devel Version: 5.10.0 -Release: 63 +Release: 65 Summary: The Perl interpreter License: Artistic License; GPL v2 or later Group: Development/Languages/Perl @@ -47,6 +47,8 @@ Patch4: perl-5.10.0-warn.diff Patch5: perl-regexp-refoverflow.diff Patch6: perl-file_path_rmtree_chmod.diff +Patch7: perl-file_path_rmtree_chmod_again.diff +Patch8: perl-nroff.diff BuildRoot: %{_tmppath}/%{name}-%{version}-build %description @@ -122,6 +124,8 @@ %patch4 %patch5 %patch6 +%patch7 +%patch8 %build options="-Doptimize='$RPM_OPT_FLAGS -Wall -pipe'" @@ -352,6 +356,9 @@ %doc /usr/lib/perl5/*/unicore/*.txt %changelog +* Wed Jan 14 2009 mls@suse.de +- work around nroff change [bnc#463444] +- fix another rmtree vulnerability [bnc#450385] * Wed Jan 07 2009 olh@suse.de - obsolete old -XXbit packages (bnc#437293) * Wed Nov 26 2008 mls@suse.de ++++++ perl-file_path_rmtree_chmod_again.diff ++++++ --- lib/File/Path.pm.orig +++ lib/File/Path.pm @@ -316,10 +316,8 @@ sub _rmtree { print "skipped $root\n" if $arg->{verbose}; next ROOT_DIR; } - if (!chmod $perm | 0700, $root) { - if ($Force_Writeable) { - _error($arg, "cannot make directory writeable", $canon); - } + if ($Force_Writeable && !chmod $perm | 0700, $root) { + _error($arg, "cannot make directory writeable", $canon); } print "rmdir $root\n" if $arg->{verbose}; if (rmdir $root) { @@ -328,7 +326,7 @@ sub _rmtree { } else { _error($arg, "cannot remove directory", $canon); - if (!chmod($perm, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) + if ($Force_Writeable && !chmod($perm, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) ) { _error($arg, sprintf("cannot restore permissions to 0%o",$perm), $canon); } ++++++ perl-nroff.diff ++++++ --- ./lib/Pod/Perldoc.pm.orig 2009-01-14 14:57:51.000000000 +0000 +++ ./lib/Pod/Perldoc.pm 2009-01-14 14:58:15.000000000 +0000 @@ -648,7 +648,7 @@ sub options_processing { $self->options_sanity; - $self->opt_n("nroff") unless $self->opt_n; + $self->opt_n("nroff -c") unless $self->opt_n; $self->add_formatter_option( '__nroffer' => $self->opt_n ); # Adjust for using translation packages ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Remember to have fun... -- To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org For additional commands, e-mail: opensuse-commit+help@opensuse.org