ignore "index.txt" file found in ftp directories
This commit is contained in:
parent
e44839e34b
commit
c862b93395
@ -1,6 +1,6 @@
|
||||
#!/usr/bin/perl -w
|
||||
|
||||
# $OpenBSD: gen-package-pages,v 1.2 2004/02/25 00:08:30 espie Exp $
|
||||
# $OpenBSD: gen-package-pages,v 1.3 2004/09/15 18:53:24 pvalchev Exp $
|
||||
|
||||
# Copyright (c) 2004 Michael Coulter
|
||||
#
|
||||
@ -92,6 +92,7 @@ sub gen_arch_page
|
||||
opendir(my $pkgs, "$pkgpath/$arch") || die "cannot get package listing for $arch: $!\n";
|
||||
while (my $file = readdir($pkgs)) {
|
||||
next if ($file =~ /^\./);
|
||||
next if ($file =~ /^index.txt$/);
|
||||
|
||||
dprint "generating package for $arch/$file\n";
|
||||
my $package = OpenBSD::PackageLocator->find("$pkgpath/$arch/$file");
|
||||
|
Loading…
Reference in New Issue
Block a user