1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-24 00:45:52 +00:00

do not attempt to recurse in non-writeable directories

This commit is contained in:
Andrey A. Chernov 1998-08-12 21:35:54 +00:00
parent 7e35888f04
commit 41e4c85af6
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=12479

View File

@ -1,5 +1,5 @@
*** webmagick.in.orig Tue Mar 24 07:45:45 1998
--- webmagick.in Fri May 22 20:44:59 1998
--- webmagick.in Thu Aug 13 01:26:44 1998
***************
*** 130,135 ****
--- 130,136 ----
@ -116,6 +116,23 @@
'readme=s' => \$opt_readme,
'readmevisible!' => \$opt_readmevisible,
***************
*** 900,906 ****
sub wanted {
my($dev,$ino,$mode,$nlink,$uid,$gid);
($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_);
! if ( -d $_ && !/^\..+/ ) {
if( $_ ne '.' && get_rc_var('.', 'opt_prune', 0) ) {
$File::Find::prune=1;
# following funny logic is to avoid warnings about $prune
--- 924,930 ----
sub wanted {
my($dev,$ino,$mode,$nlink,$uid,$gid);
($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_);
! if ( -d $_ && -w $_ && !/^\..+/ ) {
if( $_ ne '.' && get_rc_var('.', 'opt_prune', 0) ) {
$File::Find::prune=1;
# following funny logic is to avoid warnings about $prune
***************
*** 1386,1397 ****
--- 1410,1423 ----
'dircolorlink' => $opt_dircolorlink,