diff options
| author | Andrey A. Chernov <ache@FreeBSD.org> | 1998-08-12 21:35:54 +0000 |
|---|---|---|
| committer | Andrey A. Chernov <ache@FreeBSD.org> | 1998-08-12 21:35:54 +0000 |
| commit | 41e4c85af6f65b271b0edf6c52d75898cd2a80a2 (patch) | |
| tree | 7185dcb3a82b50570b8877f8818e1d537ad06a9c /www/WebMagick | |
| parent | update to new perl path (diff) | |
do not attempt to recurse in non-writeable directories
Notes
Notes:
svn path=/head/; revision=12479
Diffstat (limited to 'www/WebMagick')
| -rw-r--r-- | www/WebMagick/files/patch-aa | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/www/WebMagick/files/patch-aa b/www/WebMagick/files/patch-aa index 11224c5c830f..543b747a9942 100644 --- a/www/WebMagick/files/patch-aa +++ b/www/WebMagick/files/patch-aa @@ -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, |