clean-up, move the compute_closure code to RequiredBy, since it's

quite generic.

1 files changed, 19 insertions, 1 deletions

diff --git a/usr.sbin/pkg_add/OpenBSD/RequiredBy.pm b/usr.sbin/pkg_add/OpenBSD/RequiredBy.pm
index cb915e9ac4d..143e0eb9a95 100644
--- a/usr.sbin/pkg_add/OpenBSD/RequiredBy.pm
+++ b/usr.sbin/pkg_add/OpenBSD/RequiredBy.pm
@@ -1,5 +1,5 @@
 # ex:ts=8 sw=4:
-# $OpenBSD: RequiredBy.pm,v 1.10 2005/08/17 09:19:09 espie Exp $
+# $OpenBSD: RequiredBy.pm,v 1.11 2005/08/17 18:24:53 espie Exp $
 #
 # Copyright (c) 2003-2004 Marc Espie <espie@openbsd.org>
 #
@@ -130,6 +130,24 @@ sub forget
 	}
 }
 
+sub compute_closure
+{
+	my ($class, @seed) = @_;
+
+	my @todo = @seed;
+	my %done = ();
+
+	while (my $pkgname = pop @todo) {
+		next if $done{$pkgname};
+		$done{$pkgname} = 1;
+		for my $dep ($class->new($pkgname)->list()) {
+			next if defined $done{$dep};
+			push(@todo, $dep);
+		}
+	}
+	return keys %done;
+}
+
 package OpenBSD::RequiredBy;
 our @ISA=qw(OpenBSD::RequirementList);
 use OpenBSD::PackageInfo;