... as their directory layout does not match the scripts expectations.
Fixing this currently isn't important as they only contain obsolete
files anyway.
while (my $fi1 = readdir(D1)) {
next if ($fi1 =~ m/^\./);
while (my $fi1 = readdir(D1)) {
next if ($fi1 =~ m/^\./);
+ next if ($fi1 eq 'OldFiles' or $fi1 eq 'pkgsrc');
opendir(D2, $scan_dir . $fi1 . '/')
or die "Can't open 2nd directory! /$fi1";
while (my $fi2 = readdir(D2)) {
opendir(D2, $scan_dir . $fi1 . '/')
or die "Can't open 2nd directory! /$fi1";
while (my $fi2 = readdir(D2)) {