From f982be45e81588a27383cd1a3eb12789b8498904 Mon Sep 17 00:00:00 2001 From: cvs2svn Date: Wed, 19 Nov 2008 10:43:57 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'RELEASE_6_4_0'. --- lang/perl5.6/files/patch-Path.pm | 30 ------------------------------ 1 file changed, 30 deletions(-) delete mode 100644 lang/perl5.6/files/patch-Path.pm (limited to 'lang/perl5.6/files/patch-Path.pm') diff --git a/lang/perl5.6/files/patch-Path.pm b/lang/perl5.6/files/patch-Path.pm deleted file mode 100644 index 2735b0f6a648..000000000000 --- a/lang/perl5.6/files/patch-Path.pm +++ /dev/null @@ -1,30 +0,0 @@ -$FreeBSD$ ---- lib/File/Path.pm.orig Sat Jan 29 20:23:40 2005 -+++ lib/File/Path.pm Sat Jan 29 20:24:56 2005 -@@ -196,7 +196,7 @@ sub rmtree { - # it's also intended to change it to writable in case we have - # to recurse in which case we are better than rm -rf for - # subtrees with strange permissions -- chmod(0777, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) -+ chmod(0700, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) - or carp "Can't make directory $root read+writeable: $!" - unless $safe; - -@@ -230,7 +230,7 @@ sub rmtree { - print "skipped $root\n" if $verbose; - next; - } -- chmod 0777, $root -+ chmod 0700, $root - or carp "Can't make directory $root writeable: $!" - if $force_writeable; - print "rmdir $root\n" if $verbose; -@@ -252,7 +252,7 @@ sub rmtree { - print "skipped $root\n" if $verbose; - next; - } -- chmod 0666, $root -+ chmod 0600, $root - or carp "Can't make file $root writeable: $!" - if $force_writeable; - print "unlink $root\n" if $verbose; -- cgit v1.2.3