+
+ my $dirfh;
+ if (opendir $dirfh, $cfgpath) {
+ while ($!=0, my $ent = readdir $dirfh) {
+ next if $ent =~ m/[^-A-Za-z0-9_]/;
+ readconfig "$cfgpath/$ent";
+ }
+ die "$0: $cfgpath: $!\n" if $!;
+ return;
+ }
+ die "$0: $cfgpath: $!\n" unless $!==ENOENT || $!==ENOTDIR;
+