From 1c90e089e127871d7285d0fd49a7bd1cf2764295 Mon Sep 17 00:00:00 2001
From: bluhm <bluhm@openbsd.org>
Date: Thu, 29 Nov 2018 22:51:43 +0000
Subject: [PATCH] In outdated-perl-ports(1) use portslist package instead of
 removed /usr/ports/INDEX. OK espie@

---
 infrastructure/bin/outdated-perl-ports | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/infrastructure/bin/outdated-perl-ports b/infrastructure/bin/outdated-perl-ports
index 0f6679bfe8e..c2bbf386103 100644
--- a/infrastructure/bin/outdated-perl-ports
+++ b/infrastructure/bin/outdated-perl-ports
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $OpenBSD: outdated-perl-ports,v 1.2 2014/07/07 20:01:39 bluhm Exp $
+# $OpenBSD: outdated-perl-ports,v 1.3 2018/11/29 22:51:43 bluhm Exp $
 #
 # Copyright (c) 2003 Sam Smith <S@mSmith.net>
 #
@@ -51,7 +51,8 @@ my @dir; # pkg subdir
 		}
 	}
 
-	open (PORTS, "< ${PORTSDIR}/INDEX") || die "can't open ${PORTSDIR}/INDEX: $!";
+	open (PORTS, '<', "/usr/local/share/ports-INDEX") 
+	    or die "can't open /usr/local/share/ports-INDEX: $!";
 	while ($line=<PORTS>) {
 		@line= split /\|/, $line;
 		next unless ($line =~ /^(p5\-(.+?)\-([\d\.]+)(?:[pv]\d+)*)\|/);