summaryrefslogtreecommitdiffstats
path: root/tools/gencompss
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2000-11-28 16:56:52 +0000
committerdamien <damien@mandriva.com>2000-11-28 16:56:52 +0000
commit0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7 (patch)
tree33f7ac905998f9ad6d85090f777ee4c0d0c67032 /tools/gencompss
parentd5c526273db473a7d87a26000585900fc10dda7d (diff)
downloaddrakx-topic/unlabeled-1.1.1.tar
drakx-topic/unlabeled-1.1.1.tar.gz
drakx-topic/unlabeled-1.1.1.tar.bz2
drakx-topic/unlabeled-1.1.1.tar.xz
drakx-topic/unlabeled-1.1.1.zip
branch to build the firewall install.topic/unlabeled-1.1.1
Diffstat (limited to 'tools/gencompss')
-rwxr-xr-xtools/gencompss6
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";
}