Return to OpenBSDTorrents.pm CVS log | Up to [local] / openbsd / OpenBSDTorrents / lib |
version 1.3, 2005/03/23 01:32:30 | version 1.4, 2005/03/24 19:51:50 | ||
---|---|---|---|
|
|
||
{ | { | ||
my $basedir = shift; | my $basedir = shift; | ||
opendir DIR, $basedir or die "Couldn't opendir $basedir: $!"; | opendir DIR, $basedir or die "Couldn't opendir $basedir: $!"; | ||
my @contents = grep { ! /^\.\.$/ } grep { ! /^\.$/ } readdir DIR; | my @contents = sort grep { ! /^\.\.$/ } grep { ! /^\.$/ } readdir DIR; | ||
closedir DIR; | closedir DIR; | ||
my @dirs = grep { -d "$basedir/$_" } @contents; | my @dirs = grep { -d "$basedir/$_" } @contents; | ||