diff options
| author | damien <damien@mandriva.com> | 2000-11-28 16:56:52 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2000-11-28 16:56:52 +0000 |
| commit | 0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7 (patch) | |
| tree | 33f7ac905998f9ad6d85090f777ee4c0d0c67032 /tools/gencompss | |
| parent | d5c526273db473a7d87a26000585900fc10dda7d (diff) | |
| download | drakx-backup-do-not-use-topic/unlabeled-1.1.1.tar drakx-backup-do-not-use-topic/unlabeled-1.1.1.tar.gz drakx-backup-do-not-use-topic/unlabeled-1.1.1.tar.bz2 drakx-backup-do-not-use-topic/unlabeled-1.1.1.tar.xz drakx-backup-do-not-use-topic/unlabeled-1.1.1.zip | |
branch to build the firewall install.topic/unlabeled-1.1.1
Diffstat (limited to 'tools/gencompss')
| -rwxr-xr-x | tools/gencompss | 6 |
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"; } |