/[pkgs]/devel/perl/perl-5.10.0-fix_file_path_rmtree_setuid.patch
ViewVC logotype

Contents of /devel/perl/perl-5.10.0-fix_file_path_rmtree_setuid.patch

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.1 - (show annotations) (download) (as text)
Wed Mar 11 22:01:05 2009 UTC (8 months, 1 week ago) by spot
Branch: MAIN
CVS Tags: F-12-split, perl-5_10_0-63_fc11, perl-5_10_0-61_fc11, perl-5_10_0-80_fc12, perl-5_10_0-81_fc12, perl-5_10_0-84_fc13, perl-5_10_0-82_fc13, perl-5_10_0-77_fc12, perl-5_10_0-83_fc13, perl-5_10_0-71_fc12, perl-5_10_0-75_fc12, perl-5_10_0-73_fc12, perl-5_10_0-68_fc11, perl-5_10_0-67_fc11, perl-5_10_0-64_fc11, perl-5_10_0-72_fc12, F-11-split, perl-5_10_0-62_fc11, perl-5_10_0-69_fc12, perl-5_10_0-79_fc12, perl-5_10_0-78_fc12, perl-5_10_0-70_fc12, perl-5_10_0-74_fc12, perl-5_10_0-66_fc11, perl-5_10_0-65_fc11, perl-5_10_0-76_fc12, HEAD
File MIME type: text/x-patch 
reorder @INC, fix bz 489204, merge useful debian patches
1 diff -up perl-5.10.0/lib/File/Path.pm.BAD perl-5.10.0/lib/File/Path.pm
2 --- perl-5.10.0/lib/File/Path.pm.BAD 2009-03-11 17:54:57.000000000 -0400
3 +++ perl-5.10.0/lib/File/Path.pm 2009-03-11 17:55:32.000000000 -0400
4 @@ -333,7 +333,7 @@ sub _rmtree {
5 }
6 else {
7 _error($arg, "cannot remove directory", $canon);
8 - if (!chmod($perm, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
9 + if ($Force_Writeable && !chmod($perm, ($Is_VMS ? VMS::Filespec::fileify($root) : $root))
10 ) {
11 _error($arg, sprintf("cannot restore permissions to 0%o",$perm), $canon);
12 }
admin@fedoraproject.org
 ViewVC Help
Powered by ViewVC 1.1.2