3 lines
78 B
Perl
3 lines
78 B
Perl
|
use IO::Dir;
|
||
|
|
sub dir_is_empty { !grep !/^\.{1,2}\z/, IO::Dir->new(@_)->read }
|