openbsd/OpenBSDTorrents/lib/OpenBSDTorrents.pm - diff

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

Line 47

{

my $basedir = shift;

opendir DIR, $basedir or die "Couldn't opendir $basedir: $!";

my @contents = grep { ! /^\.\.$/ } grep { ! /^\.$/ } readdir DIR;

my @contents = sort grep { ! /^\.\.$/ } grep { ! /^\.$/ } readdir DIR;

closedir DIR;

my @dirs = grep { -d "$basedir/$_" } @contents;