#!/usr/bin/perl
#
#  Print a recursive list of reverse package dependencies.
#  Mark Rosenstand <mark@borkware.net>
#

my @stack = (shift);
my %known;

while (my $pkg = pop @stack) {
	next if $known{$pkg};
	push @stack, split('\n', `prt-cache dependent $pkg`);
	print "$pkg\n";
	$known{$pkg} = 1;
}