They can be listed in the parent, but their contents is secret.
if ($item && $comment) { $item->comment($comment); }
close $f;
} else {
if ($item && $comment) { $item->comment($comment); }
close $f;
} else {
+ my $st = stat "$path/$e";
+ unless ($st->mode&0004) { return ([], [], undef); }
+
opendir $d, $path;
my @e = readdir $d;
closedir $d;
opendir $d, $path;
my @e = readdir $d;
closedir $d;
my $dotp = $e =~ /^\./;
my $st = stat "$path/$e";
my $list = undef;
my $dotp = $e =~ /^\./;
my $st = stat "$path/$e";
my $list = undef;
- if ($dotp || !($st->mode&0004)) { }
elsif (-d $st) { $list = \@d; }
elsif ($TYPE{lc $ext} && -f $st) { $list = \@f; }
$list and push @$list, TrivGal::Item->new($e);
elsif (-d $st) { $list = \@d; }
elsif ($TYPE{lc $ext} && -f $st) { $list = \@f; }
$list and push @$list, TrivGal::Item->new($e);