create-package-feed.pl: Skip 'OldFiles' and 'pkgsrc' directories

... as their directory layout does not match the scripts expectations.
Fixing this currently isn't important as they only contain obsolete
files anyway.

diff --git a/utils/create-package-feed.pl b/utils/create-package-feed.pl
index 07a7e17..22fb110 100644 (file)
--- a/utils/create-package-feed.pl
+++ b/utils/create-package-feed.pl
@@ -38,6 +38,7 @@ opendir(D1, $scan_dir) or die "Can't open 1st directory! /";
 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)) {