my $param_all = param('-all');
find(
sub {
- my $d;
my $curr_depth = $File::Find::dir =~ tr[/][];
return if $depth and $curr_depth > $depth;
+ return if !-r $File::Find::name;
if (
=~ m!^$datadir/(?:(.*)/)?(.+)\.$file_extension$!
# not an index, .file, and is readable
- and $2 ne 'index' and $2 !~ /^\./ and ( -r $File::Find::name )
+ and $2 ne 'index' and $2 !~ /^\./
)
{
or stat($static_file)->mtime < $mtime )
{
$indexes{$1} = 1;
- $d = join( '/', ( nice_date($mtime) )[ 5, 2, 3 ] );
+ my $d = join( '/', ( nice_date($mtime) )[ 5, 2, 3 ] );
$indexes{$d} = $d;
$indexes{ ( $1 ? "$1/" : '' ) . "$2.$file_extension" } = 1
if $static_entries;
}
# not an entries match
- elsif ( !-d $File::Find::name and -r $File::Find::name ) {
+ elsif ( !-d $File::Find::name ) {
$others{$File::Find::name} = stat($File::Find::name)->mtime;
}
},