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