Revert "Remove 'dep seen' registry, until I figure out why it was there."
authorMikko Värri <vmj@linuxbox.fi>
Wed, 2 Nov 2011 23:37:07 +0000 (01:37 +0200)
committerMikko Värri <vmj@linuxbox.fi>
Wed, 2 Nov 2011 23:37:07 +0000 (01:37 +0200)
This reverts commit ab207ccca21010d7857fb7c29af3decb64a282c4.

bin/make-slack-required

index 0e9d759..6096140 100644 (file)
@@ -60,6 +60,8 @@ my $options = {
 };
 Slackware::CLI::ParseOptions( $summary, $usage, $help, $options );
 
+my %seen;
+
 sub dep_name {
     my $dep = shift;
     my $name = $dep->name;
@@ -71,6 +73,9 @@ sub slack_required {
     my $dep = shift;
     my $out = "";
 
+    return $out if defined $seen{$dep->name};
+    $seen{$dep->name} = 1;
+
     $out .= dep_name($dep);
     unless ($HIDE_ALTERNATIVES) {
         $out .= " | " . dep_name($_) foreach $dep->alternatives;
@@ -100,6 +105,8 @@ sub slack_required {
 my $pkg = undef;
 my $fh = undef;
 foreach my $pkg_db_entry (@ARGV) {
+    # Reset "seen" registry
+    delete $seen{$_} foreach keys(%seen);
 
     $pkg = Slackware::Package->new_from_pkg_db_entry($pkg_db_entry);