my @file;
my @d;
my @slot;
+my $patt = '^.*$';
if (@f) {
my $fn = lc $f[0];
$fn =~ s/\.//og;
$fn =~ s/^\///og;
$root = "$root/$fn";
+
+ $patt = shellregex(lc $f[1]) if defined $f[1];
}
opendir(DIR, $root) or return (1, $self->msg('e3', 'show/files', $f[0]));
my $flag = 0;
for (@file) {
next if /^\./;
+ next unless m{$patt};
my $fn = "$root/$_";
my $size;