branch to build the firewall install.topic/unlabeled-1.1.1

1 files changed, 3 insertions, 3 deletions

diff --git a/tools/gencompss b/tools/gencompss
index b26ef7c2c..b12328e49 100755
--- a/tools/gencompss
+++ b/tools/gencompss
@@ -1,14 +1,14 @@
 #!/usr/bin/perl
 
-open F, "bzip2 -dc @ARGV 2>/dev/null | hdlist2groups - |";
+open F, "packdrake -c @ARGV | hdlist2groups - |";
 foreach (<F>) {
     chop;
     /(.*):(.*)/;
-    push @{$l{$2}}, $1;
+    $l{$2}{$1} = undef;
 }
 close F or die;
 foreach (sort keys %l) {
     print "$_\n";
-    print "\t$_\n" foreach sort @{$l{$_}};
+    print "\t$_\n" foreach sort keys %{$l{$_}};
     print "\n";
 }