rpm/perl
SHA256
1
0
Fork 0
forked from pool/perl
Code Pull Requests Activity

OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=26

Browse Source
This commit is contained in:
OBS User unknown 2009-01-14 16:44:56 +00:00 committed by Git OBS Bridge
parent 5ab9af1944
commit a230290b80
4 changed files with 49 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
perl-file_path_rmtree_chmod_again.diff Normal file
View File

@ -0,0 +1,24 @@
--- 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);
}

11
perl-nroff.diff Normal file
View File

@ -0,0 +1,11 @@
--- ./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

6
perl.changes
View File

@ -1,3 +1,9 @@
-------------------------------------------------------------------
Wed Jan 14 15:58:56 CET 2009 - mls@suse.de
- work around nroff change [bnc#463444]
- fix another rmtree vulnerability [bnc#450385]
-------------------------------------------------------------------
Wed Jan 7 12:34:56 CET 2009 - olh@suse.de

9
perl.spec
View File

@ -22,7 +22,7 @@ Name: perl
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 @@ Patch3: perl-fix_dbmclose_call.patch
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 @@ Authors:
%patch4
%patch5
%patch6
%patch7
%patch8
%build
options="-Doptimize='$RPM_OPT_FLAGS -Wall -pipe'"
@ -352,6 +356,9 @@ EOF
%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